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PREFACE 


This volume is the last of six volumes that describe the LMI Sortie- 
Generation Model System. Volume I, Executive Summary, discusses the problem 
the system is designed to address and provides an overview of the principal 
parts of the system. Volume II, Sortie-Generation Model User's Guide, provides 
sufficient information to allow a user to run the Sortie-Generation Model 
(SGM) . Volume III, Sortie-Generation Model Analyst's Manual, describes 
the mathematical structures, derivations, assumptions, limitations, and data 
sources of the system at a very detailed level. Volume IV, Sortie-Generation 
Model Programmer's Manual, specifies the details of the computer programs, 
file structures, job control language, and operating environment of the 
system. Volume V describes the maintenance subsystem and explains the 
construction of the maintenance input file to the SGM. Volume VI describes 
the spares subsystem and shows a user how to build the spares file that is 
used by the SGM. 

Potential users are cautioned that no volume is intended to provide, by 
itself, all of the information needed for a comprehensive understanding of 


the operation of the SGM. 
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SPARES SUBSYSTEM 


SPARES SUBSYSTEM DESCRIPTION 


INTRODUCTION 
The purpose of the spares subsystem is to provide a means of translating 
budget-program 15 (BP15) resources and depot-purchased equipment maintenance 
(DPEM) resources into a spares posture. By a spares posture we mean a set of 
stock levels by national stock number (NSN) and location. Locations include 
all bases world-wide and al] depots. The spares subsystem is shown schemat- 
ically in Figure 1. It consists of several components, each of which will be 
discussed. 
The Aircraft Availability Model 

The Aircraft Availability Model produces an availability-vs.~cost 
curve for each model/design (MD) aircraft in the Air Force inventory (e.g., 
F-4 or B-52), for each model/design/series (MDS) such as F-4D or F-4E, or for 
any combination of MDs and MDSs. Given the assumptions made in the model, 
each point on the curve is an optimum; i.e., it represents the least-cost mix 
of spares and depot-level repair for that level of aircraft availability and 
it also represents the maximal availability achievable for that total cost of 
procurement and repair. 

The input data for the Availability Model are derived from the Air 
Force Logistics Command's D041, DO41A, and KO004 data systems. They specify, 
for each recoverable item in the system, the current worldwide asset position 
including war reserve stocks, failure factors, pipeline times, flying hour 
programs, item applications by weapon system, base repair fractions, item unit 


costs and repair costs, and other factors that affect the resource allocation 


solution and resulting mix of spares. The Availability Model takes explicit 
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account of item commonality, i.e., the application of a component to more than 


one kind of aircraft, and also estimates the effects of lateral resupply. It 
is, in short, a powerful, flexible, resource allocation tool for recoverable 
spares procurement and depot-level repair. 
The Interactive Budget Allocation Program 

This program enables a user to specify the amount of money he wishes 
to allocate to each MD. The program enables the user to choose an availabil- 
ity increment or a budget increment, either positive or negative, will display 
the current budget allocation and availability for each MD, and will also dis- 
play the new budget allocation and availability that would result from appli- 
cation of the increment to each MD. The user then selects the MD(s) to which 
he wishes the increment to be applied. The program keeps track of and dis- 
plays the total amount of budget dollars allocated to the entire force; that 
total includes the sum of procurement dollars and depot-level-repair dollars 
and the two values are optimized beyond the control of the user. The user 
proceeds iteratively changing and allocating the increment to MDs of his 
choice until he reaches the budget constraint or a set of availability goals. 

The most important feature of the interactive program is the ease 
with which a user is able to allocate resources across a rather large number 
(roughly 40) of different MDs in a way that takes military worth explicitly 
into account. For any specified budget or availability increment, the user is 
able to see exactly what his tradeoff opportunities and costs are at any point 
in the decision process. 


When the user has allocated a budget, the program stores the results 


of his final decision so thec, at any future time, the set of spares by stock 


number and the detailed depot-level-repair program may be produced. The 
remainder of the process consists of three major steps: (1) The Shopping List 
Program, (2) the Distribution Model, and (3) the Setup Programs. 

The remainder of this volume is dedicated to explaining these three 
steps. We assume that the Aircraft Availability Model has been run on current 
data and that the user has specified availability levels for all aircraft and, 
implicitly, a total budget level. The next step in the process is to run the 
Shopping List Program. 

THE SHOPPING LIST PROGRAM 

The output of the Interactive Budget Allocation Program, a function of 
the user's allocation decisions, is subsequently used by the Shopping List 
Program to extract from the Availability Model output the quantity of spares 
of each component that results from the decision process and the set of 
availability-vs.-cost curves that were input to the interactive program. Thus, 
the Shopping List Program produces a world-wide stockage level for every 
recoverable component in the Air Force system. 

The Shopping List Program used by the SGM is a simplified version of a 
Shopping List Program that is used routinely with the Aircraft Availability 
Model for budget planning and other purposes. It is simplified to the extent 
that it generates a shopping list of line-replaceable units (LRUs) only, i.e., 
it does not output shop-replaceable units (SRUs). It outputs for each LRU the 
expected delay in base repair due to SRU backorders. The shopping list for 
SRUs isn't needed by the SGM because the expected delay in base repair of the 
fea LRU fully accounts for the impact of the SRU asset position. 

As the user goes through the decision process involved in specifying is 


availability levels and allocating a total budget, each of his decisions is 


numbered and stored by the Interactive Budget Allocation Program. The 
Shopping List Program simply retrieves the stock levels associated with a 
particular decision. 
Inputs 
Prior to running the Shopping List Program, the user needs to know 
the job name (JOBNAME) and the tape number of the level-one, tape one (Ti-1) 
from the Aircraft Availability Model run, the interactive decision number of 
the decision he wishes to implement from the Interactive Budget Allocation 
Program, and the area code (AREACODE) of the output tape of the Shopping List 
Program. It is assumed that the user knows his IDENT code and NAME. 
Job Submission Procedures 
Figure 2 shows what entries are required to submit the Shopping List 
Program. The system's output to the user's terminal is shown without 


underlining; the user's responses are underlined. These responses are only 


SYSTEM PRUNY LAéELA/SUBMIT.R 
eetee STARS SUBMIT SUBSYSTEM etter 


=RUN LAG1A/STARS/JICL/IR/SSHOP 
ENTER IDENT ? 
=SOS2ZO0OL1NZ320 ,QS29USLAY 
ENTER NAME ? 
=ABELL 

ENTER JOBNAME 

=IWRM&OSS 

ENTER AREACODE 

=O82942 

ENTER T1-1# 

=925 


ENTER DECISTON# 


=15 


JOB SUBMITTED 
SNUMB # 7051U 


FIGURE 2. SUBMISSION OF SHOPPING LIST PROGRAM 
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examples. An authorized user of System C will have his own responses. The 
important responses here are the run commands. 

The job control language (JCL) for the Shopping List Program is 
shown in Figure 3. A listing of its source program is provided in Appendix 4 


and a sample of a few pages of its output can be found in Appendix B. 


#LIST LASIA/STARS/JICL/IR/SSHOP 


LOO##N,RCXL) 

110%: IDENT: & IDENT. 

120$2 NOTES SSHOF (LRU SHOPPING LIST WITH SRUEBO) RUN FOR &NAME. 
120$2M5G1°4,ULGSS2.J0BNAME. .&AREACODE, »O70 
140$:0PTION: FORTRAN 

150$% SELECT! LAG1A/STARS/OBIECT/IR/SSHOF, 

1S0$: EXECUTE 

L7OSS LIMITS: 39, 14K, . 25K 

130% TAPE9: O1,X100,,&71-1#...### 
1VOSSPRMFLIEO2, RR, LAKLA/STARS/ JOBS /& IOBNAME. /LSTAT 
2008: DATA O23 

210 &DECISTION#. 

22ZO0$S2F ILE: 04, NULL 

220$2 TAPE: 05, TID, >>. SS&BNAME. xi 

Z240$S FILES O27, NULL 

250%: ENDWIB 


FIGURE 3. JCL FOR SHOPPING LIST PROGRAM 


THE DISTRIBUTION MODEL 
The Distribution Model operates on the output of the Shopping List 
Program. Its purpose is to find the distribution of stock levels for all 
items among all bases and the depot such that the value of expected base-level 
backorders is minimized. The Distribution Model takes explicit account of the 
- world-wide distribution of aircraft by MDS and their collocation by base. 
The Distribution Model allocates the asset position specified by the 


Shopping List Program to the depot and the particular bases so as to minimize 


total expected backorders. The Distribution Model does this one component at 


a time. First, all the data about a particular component are read in. These 
data include: 


- The total number of assets worldwide as specified by the 
Shopping List. 


- The total demand rate, the repair times, the percentage of repairs at 
each echelon, the condemnation rate, the production lead time, etc., 
as specified by the VSL Tape. 

- The MDS, Quantity Per Aircraft (QPA), and the Future Application 
Percentage (FAP) of each MDS application for that component as 
specified by the Application Tape. 


- The distribution of the MDSs to the various bases, and their flying 
hour programs as specified by the Aircraft File. 


- The demand rate per flying hour as specified by the DO41-01 Records 
Tape. 


The Model computes the demand rate at each individual base and at the 
depot. The world-wide assets are allocated to the bases and the depot using 
an algorithm which is equivalent to trying all possible distributions and 
picking the one with the lowest total expected backorders. The results of 
this distribution are written to tape and the model reads in the next 
component. 

The user must generate the Aircraft File (called ACLIST) from information 
contained in the Air Force Program Document (PD). Each base in the file is 
assigned a number and a list of the bases and their numbers is saved in a file 
(referred to as the Base List). Examples of an Aircraft File and a Base List 
are contained in Appendices C and D. 

The output of the Distribution Model is a file of all recoverable 
components by NSN that reflects the stock levels of that NSN allocated to 
every base world-wide and the depot stock level. This file reflects directly 
the input budget originally allocated by the user of the Interactive Budget 


Allocation Program. 


Inputs 


Prior to running the Distribution Model the user needs to know the 
tape numbers of the VSL tape, the DO41 system "01" tape, and the application 
file that were input to the Aircraft Availability Model and of the output tape 
from the Shopping List Program. He also needs the file name of the file that 
reflects the distribution of aircraft and flying hours among bases (ACLIST) 
and the area code (AREACODE) for the output tape of the Distribution Model. 
Again, it is assumed that the user knows his IDENT code and NAME. 

Job Submission Procedures 

Figure 4 shows the entries required to run the Distribution Model. 
As before, the system's output to the user's terminal is shown without under- 
lining; the user's responses are underlined. 

The JCL for the Distribution Model is shown in Figure 5. A listing 
of its source program is provided in Appendix E. Appendix F contains a sample 


of the Distribution Model's output. 


THE SETUP PROGRAMS 


The Setup Program provides an interface between the general spares data 
base generated by the Distribution Model and a particular spares data base 
needed by the SGM. The principal function of the Setup Program is to read the 
Distribution Model output tape selecting the data for the base and MDS(s) of 
interest and saving those data on a disc file suitable for use by the SGM. 

The file created by the Setup Program contains data for each LRU for the 


base and MDS(s) of interest. The data are stored one component at a time 


SYSTEM ?RUNY LAG1LA/SUBMIT,R 


Hee STARS SUBMIT SUBSYSTEM +i 


=RUN LA6LA/STARS/JICL/DM/SOIST 
ENTER IDENT ? 
=OSZO0LINZ32D ,0S29USLAY 
ENTER NAME ? 

=ABELL 

ENTER DIST-T-NAME 
=BLSTWOSS 

ENTER AREACODE eg 

=0S2742 

ENTER SHOP-T# ? 

=21771 

ENTER ACLIST ? 
=SRTDPDIOU 

ENTER VSL-T# ? 

=21185 

ENTER APP-T# ? 

=20087 

ENTER DO1-T# 2 

=26140 


JOR SUBMITTED 
SNUME # 7423 


FIGURE 4. RUNNING THE DISTRIBUTION MODEL 


with one record per component. The data for each component are: 


Ll. NSN - The national stock number of the component. 


.. DEMAND - The demand (break) rate in failures per flying hour. 


QPA - The quantity installed on each aircraft. 


4. FAP - The “Future Application Percentage”, the percentage of the 
missions on which the component is installed. 


Sis NSPARES - The number of spares of that component (on hand, in 
repair, and on order) at that base. 


RESUPPLY - The expected number of units in resupply at the start of 
the scenario. 


*#LIST LA61A/STARS/JCL/DM/SDIST 


LOO##N, RCXL) 
110%: IDENT: & IDENT. 
120$:2NOTE:SDIST RUN FOR &NAME. 
120$:MS61: 4,ULG201ST-T-NAME. »&XAREACODE. O70 
1409: 0PT ION: FORTRAN 
150% SELECT: LAé1A/STARS/OBRJECT/DM/HIDMM. 0 
140$: SELECT: LAé1A/STARS/OBJECT/OM/FOEBO.0 
170$2: SELECT: LAG1LA/STARS/OBUECT/DM/PICND.O 
130$: EXECUTE 
LVOSELIMITS! 199, 29K, 19K 
20068 FILE2O1,A3CR,600L 
21063 PRMFL:03,R,5,LA610/STARS/COMMON/DIM/ THREESIM 
220% TAPE?: 04, A400, ,&SHUP-T#H. » » ### 
2230$: DATA OS 
240$2 SELECTA: LAGLA/STARS/COMMOUN/DM/&ACLIST. 
25082 REMOTE: 07 
260%: TAPE?! 31,A5DL0,,&VSL-T#. » » ### 
27088 TAPE?: 12, A600, ,&%APP-TH. »» ##4# 
2208: 0FP TIONS FORTRAN 
29082 SELECT: LAG6K1A/STARS/OBJECT/OM/HIR. 
300$2 EXECUTE 
SLOSELIMITS: 99, 15K..1K 
S208 TAPE? 3 O1 ? A7DOD, ? &DO1-T#. >» ### 
S30S8 FILE? 02, A355 
34068 TAPE?!2 OF, ASC, .,,&D01ST-T-NAME, ### 
35068 [FZ ABORT.LX1 
36083 GOTH: NX 4. 
370% 2 NOTE 
330$s NOTE 
270$SNOTES SAVE OUTFUT FROM HIDMM ON TAFE 
400$ LX1. LABEL 
4190S: UTILITY 
ZOSSLIMITS: 20, 10K..,1K 
4308: FUTIL? AA, BE, REW/AA, BB/,COPY/1F/ 
440$2%F ILE? AA, ASRR 
4506: TAPE’: BB, ASCII, ..+.XDIST-T-NAME, HH 
460$5 IF? ABORT, ENDIOB 
470$ NXi. LABEL 
4308: ENDJOB 


FIGURE 5. JCL FOR THE DISTRIBUTION MODEL 


BNRTS - The percentage of breaks which are "Not Repairable This 
Station" at the base. 

BRESDAYS - The expected number of days it takes to repair a 
component at base (including any delay awaiting SRUs). 
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DRESDAYS - The expected number of days between when a component is 
declared NRTS (when an order is made to the depot) and when the 
replacement arrives from the depot (including any delay at the depot 
due to lack of spares there). 

If a setup run is being made for a single MDS at a particular base (see 
the first example in the Job Submission Procedures section) and the component 
is not installed on any other MDS at that base then the Setup Program simply 
transfers the data from the Distribution Model output tape to the SGM Spares 
Input File. However, certain cases require the Setup Program to make 
calculations based on some important assumptions. The explanations follow. 

The organization to be set up need not possess only one MDS. For 
example, the SGM run desired may be for an F-15 wing consisting of 54 F-15As 


and six F-15Bs. The QPAs and FAPs for a component of these MDSs may not be 


the same. The SGM needs a single QPA and a single FAP which represents the 


components application to the entire wing. The Setup Program sets the QPA for 


the wing to the maximum of the QPAs for the individual MDSs. The FAP is 
chosen so as to give the correct total number installed. In the example, if a 
component's QPA and FAP for the F-15A were one and 1.0, respectively, and to 
the F-15B two and 0.8, respectively, then the QPA for the wing would be two, 
and to get the FAP we compute: 
Total Installed (1 X 1.0 X 54) + (2 X 0.8 X 6) = 63.6 
2 X FAP X 60 
FAP 0.53 

For a particular component, the Distribution Model considers the demands 
for that component at each base and the depot, and distributes the assets so 
as to minimize the total expected backorders for that component. If, at a 
particular base, there is only one aircraft type that uses the component, then 
all the spares allocated to that base by the Distribution Model are designated 


for use by that aircraft, and the total expected number in resupply at that 


11 


base are from that aircraft. However, if the component is common to two or 
more aircraft types then the input to the SGM for one of those aircraft types 
should reflect the sharing of the spares and the number of units in resupply. 
This sharing is modeled in the following way. 

For a component that is common to more than one aircraft type at a 
particular base, each aircraft type is respensible for a proportion of the 
total demands for that component at that base. The spares at that base are 
partitioned (rounded to the nearest integer) to the aircraft types in propor- 
tion to their shares of the demands. The expected number in resupply for an 


aircraft type is chosen so that the expected backorders for that aircraft type 


(given the number of spares just computed) will be equal to the total expected 


backorders at that base times that aircraft type's share. In the previous 
example, suppose the share for the F-15 wing is .5; that is, half of the 
expected demands for that component at that base come from other aircraft. 
Now, suppose the expected number in resupply is 3.45236 and there are six 
Spares. The F-15 wing gets three spares and the number of units in resupply 
for the wing is that number which would give an EBO for the wing equal to .5 
times the EBO for the whole base. The EBO for the whole base is the EBO for 
six spares and an expected number in resupply of 3.45236. (The base EBO 
equals 0.10.) The EBO for the wing is 0.05 and the expected number in resup- 
ply which, with three spares, yields that EBO is 1.25290. 
For the component and base in this example, the inputs to the SGM would 
include: 
QPA 
FAP 


NSPARES 
RESUPPLY 


2 

0.53 

3 
1.25290 


The principal assumption in letting the EBO and the number of spares 
prorate linearly with the share of demands is that there is no economy of 
scale benefit from the sharing of the spares pool at a base. While this 
assumption is very inaccurate for peacetime operations, in a surge scenario it 
is quite good. In computing NSPARES, the Setup Program rounds to the nearest 
integer. This obviously introduces some error. The error attributable to the 
linearity of the prorating is less than the error of the rounding. 

In addition to modeling an organization of aircraft at a particular base, 
the SGM can be used to model a "notional" base. For a particular set of MDSs, 
the notional base should produce sorties at a rate that is the average of all 
the bases that have any of the MDSs in the set. This allows the user to 
estimate the total world-wide sortie production of a particular set of MDSs by 
making a single notional SGM run and multiplying the results by the number of 
bases which have any of the MDSs in the set. In setting up the spares inputs 
to the SGM for a notional base, one depends heavily on the linear prorating 
assumption. However, it is with the notional base model that we have 
validated the accuracy of that assumption. 

For the notional base, the computation of the number of spares and the 
expected number in resupply is essentially the same as for a particular base 
except the spares and EBO are prorated in proportion to a share of the 
world-wide total. 

First, the total number of spares and total EBO at all the bases are 
computed. Next, the percentage of the total world-wide expected demands for 
that component that come from the aircraft type of interest is computed. 
Also, the total uumber of bases that use both the component and aircraft type 
(NBASES) is computed. The share of the total world-wide demands for the 


component due to one notional base equals the percentage of total demands due 
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to the aircraft type of interest, divided by NBASES. The number of spares for 
the notional base is then prorated from the world-wide total proportional to 
this share, exactly the same way as for a particular base. The EBO is pro- 
rated the same way and the expected number in resupply is chosen to give the 
correct EBO, exactly as in the particular base computation. 

Inputs 

In order to run the Setup Program for a particular base, the user 
needs to have the tape number of the output file produced by the Distribution 
Model. One may wish to copy that tape so that, in the event that one needs to 
run Setup Programs repeatedly, there will be no delay waiting for one run to 
finish with the tape before it can be used for another. The user also needs 
the base number from the Base List for the particular base of interest, and he 
needs to specify each MDS at the particular base. He also needs to specify a 
value for flying hours per day. The use that is made of this value is to sort 
components according to the likelihood that they will suffer shortages that 
will constrain the sortie-generation capability of the organization. The 
actual value specified need only be approximate. Finally, the user must be 
prepared to specify his choice of a file name for the output file that the 
Setup Program will write on disc for use by the SGM. The entries required to 
run the Setup Program for a particular base are shown in Figure 6. 

In order to run the Setup Program for a notional base, the user does 
not need to specify a base number; however, he does need to specify all MDSs 
he wishes to have combined in the notional base. In the example shown in 
Figure 7, the intention is to construct a notional F-4 base; thus, the user 


specifies the RF-4C, F-42, and F-4G to be included. 
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SYSTEM ?RUNY LA61A/SUBMIT.R 
eetee STARS SUBMIT SUBSYSTEM sistas 


=RUN LA61A/STARS/ JCL/DM/SETIUP 
ENTER IDENT ? 
BOS2Z0L1N2320D ,OS29USLAY 

ENTER NAME ? 

=ABELL 

ENTER DIST-T# ? 

=263923 

ENTER QUTFILE 
=F4/SEYMOUR 
ENTER BASE-# ? 
=135 

ENTER FHPERDAY ? 
=3 

ENTER MaS ? 
=" FOO4E” 


od 


JOB SUBMITTED 
SNUMB # 7159 


FIGURE 6. RUNNING A SETUP PROGRAM 
FOR_A PARTICULAR BASE 
Job Submission Procedures 

The example shown in Figure 6 is for a base with a single MDS of 
interest; hence, the JCL carries the name SETIUP. The JCL is shown in Figure 
8. Other examples of JCL are shown in Figures 9 through 11 for particular 
bases with two, three, or four MDSs. The user can easily construct JCL for 
particular bases with more than four MDSs by straightforward extension. 

Figure 7 shows the entries required to run the Setup Program for a 
notional base. In the example chosen, the Fr-4 is the weapon system of inter- 
est. Since there are three MDSs invoived, as mentioned previously, the JCL 
has the name SET3UPN. The JCL for one, two, three, and four MDSs are shown in 
Figures 12 through 15. Again, the user can create JCL for more than four MDSs 


by simple extension. 
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SYSTEM ?RUNY LA61A/SUBMIT>R 


#eeee STARS SUBMIT SUBSYSTEM #sseiete 


=RUN LASLA/STARS/JCL/DM/SET3UPN 
ENTER IDENT ? 
=OS2011NZ2220 ,OS2°USLAY 
ENTER NAME 2 
=ABELL 
ENTER DIST-T# ? 
=26393 
| ENTER OUTFILE > 
=F4/NOTIONAL 
| ENTER FHPERDAY ? 
=3 
! ENTER MDS1 ? 
=" RFOOS4C" 
ENTER MDS2 ? 
=" FOO4E”" | 
ENTER MDSz ? | 
=" FOO4G" 


JOB SUBMITTED 
SNUMB # 721¢Sl 


FIGURE 7. RUNNING A SETUP 
PROGRAM FOR A NOTIONAL BASE 


#LIST LA6&1A/STARS/JICL/DM/SETLUP 


LOO##N, RCXL) 
110%: IDENT: & IDENT. 
120$°2NCTE:SETIUP RUN FOR &NAME. 
120$!0P TION: FORTRAN 
140%* SELECT: LAGLA/STARS/OBJECT/DOM/SETUP.O 
150$2 SELECT: LAG1A/LMILIB.O/FPIPECMFO 
1406? SELECT: LA61A/LMILIB. O/EBOCMP.O 
170$2 SELECT? LAG1A/LMILIB. O/DFACTLNO 
175%2 SELECT? LA61A/LMILIB.O/MSORTO.O 
1SO0$S EXECUTE 
L29OSSLIMITS: 39, 25K, 710K 
ZOOSs TAPEIS 01, A1DD, »&DIST-T#. » » ### 

res 21088 PRMFL: 02,W,5,LAGIA/SLAY/DATA/&OUTFILE. 
22082 DATAIOS 
Z2308&BASE-#, 
Z225#2FHPERDAY. 
Z24082M0S. ; 

* 250$8 ENDJOB 


FIGURE 8. JCL FOR A SETUP PROGRAM FOR 
A PARTICULAR BASE WITH ONE MDS 
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#LIST LASIA/STARS/ ICL/OM/SET2UP 


LOO##N, RCXL) 

110$8 IDENT: &IDENT. 

120$SNOTE:SETZUF RUN FOR &NAME. 
130$:0PTION: FORTRAN 

140%: SELECTS LAGIA/STARS/OBJECT/DOM/SETUF.O 
150$2 SELECT! LAGLA/LMILIB.O/PIPECMPO 

140%: SELECT: LASIA/LMILIB. O/EBOCMP. 0 

170$: SELECTS LAé4LA/LMILI#.O/DFACTLNO 

175%% SELECTSLAGLA/LMILIB.O/MSORTO.O 

1206: EXECUTE 

LVOSs LIMITS: 39, 25K,,10K 

20083 TAPEYSO1,A1L0D,  &OIST-TH. >> ### 

210$8 PRMPL? O2,W. SS -LAGLA/SLAY/DATA/&OUTFILE. 
2208: DATA: 05 

S20#&BASE—-#. 

ZIS#HEFHPERDAY . 

Z4OeRMDS1. 

S47THQUMDS2. 

250$3 ENDWOB 


FIGURE 9. JCL FOR A SETUP PROGRAM FOR 
A PARTICULAR BASE WITH TWO MDSs 


#LIST LAGIA/STARS/ ICL/OM/ SETSUP 


LOO##N, RCXL) 

1102 IDENT: &IDENT. 

120$: NOTE? SETSUP RUN FOR &NAME. 

13085 0PTION: FORTRAN 

140$5 SELECT LAE1TA/STARS/OBIECT/OM/SETUP. O 
150$% SELECT? LAGIA/LMILIB. O/PIPECMPO 

140$!3 SELECT? LAGIA/LMILIE.O/EBCCMP.O 

170%: SELECT!SLAG1A/LMILIB.OG/DFACTLNO 

1723$% SELECT: LAGLA/LMILIB.G/MSORTD.O 

130$3 EXECUTE 

1POSELIMITS!$ 29, 25K,» 10K 

290$2 TAPE9:01,A10D,,&DIST-T#H. » » ### 
2£10$2PRMFL: O2,W, S>LAGIA/SLAY/DATA/&OUTFILE, 
Z220$°8 DATA: OS 

23082. BASE-#. 

23S#&FHPERDAY. 

Z24O0#RM091. 

Z42#2M0S2. 

244R8M0S3,. 

25062 ENDJCB 


FIGURE 10. JCL FOR A SETUP PROGRAM FOR 
A PARTICULAR BASE WITH THREE MDSs 
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*#LIST LAGIA/STARS/ JCL/OM/SET4UP 


1O0##N, RC XL) 

110%: IDENT: & IDENT. 

120$:NOTE:SET4UF RUN FOR &NAME. 
130$2 OPTION: FORTRAN 

1408 SELECT = LAE1LA/STARS/OBIECT/DM/SZETUP.O 
150% SELECT: LAé1A/LMILIB.O/FPIPECMPO 
146083 SELECT: LAGIA/LMILIB. O/ERCIIMP.0 
170$: SELECT: LA41A/LMILIB.O/DFACTLNG 
175$% SELECT? LAGLA/LMILIB. G/MSORTE. Ci 
1508: EXECUTE 
LVOSSLIMITS: 39, 25K.,10K 

20083 TAPES: O1,A1LDND., &DIST-T#H. ..### 
210%2 PRMFL: 0O2,W,5,LA6E1A/SLAY/DATA/&CUTFILE. 
220$3 DATA OS 

ZIO#EBASE-#. 

Z35H#2FHPERDAY. 

Z4O0#RMDES1. 

Z424H#2MDS2. 

244#8RMDS3. 

Z468RM054, 

250%: ENDO 


FIGURE 11. JCL FOR A SETUP PROGRAM FOR 
A PARTICULAR BASE WITH FOUR MDSs 


*#LIST LAGIA/STARS/ICL/OM/SETLUPN 


LOO##N, RCXL) 

11082 IDENT: & IDENT. 

120$: NOTES SETIUPN RUN FOR &NAME. 

130% OPTION: FORTRAN 

140$: SELECT: LAGIA/STARS/QBJECT/OM/SETUPN.O 
150$2 SELECT? LAéZ1A/LMILIB.O/FIPECMPO 

160$: SELECT: LAGIA/LMILIB. O/ERBOCMP.0 

170$: SELECT: LAGIA/LMILIB.O/DFACTLNG 

175$% SELECT: LAé1A/LMILIB.O/MSORTO. 

180$:2 EXECUTE 

LYOSE LIMITS! 29, 25k... 10K 

2008: TAPE??O1,A1DD, .&DIST-TH. >. ### 

21082 PRMFLE O2,W, 5, LAGLA/SLAY/DATA/&ZOUTFILE. 
22082 DATA! OS 

Z23542FHPERLAY. 

24082 MDS. 

250$2 ENDJOB 


FIGURE 12. JCL FOR A SETUP PROGRAM FOR 
A NOTIONAL BASE FOR ONE MDS 
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vend 


#LIST LAGLA/STARS/ ICL/OM/SETSLIPN 


LOO##N, ROXL) 

110%: IDENT: & IDENT. 

120$: NOTE: SETZUPN RUN FOR &NAME. 
130$: OPTION: FORTRAN 


15088 SELECT? LAGLA/LMILIB.O/PIPECMPO 
140$!: SELECT: LAGLA/LMILIB.O/EROCMP. CO 
170$: SELECT? LAGLA/LMILIB.O/DFACTLNG 
175$2 SELECT: LAGIA/LMILIB.O/MSORTO. 
12082 EXECUTE 
LVOSELIMITS? SY, 25K. >. 10K 

200$% TAPE?! 01,A1D0,,&DIST-TH...### 
ZLOSSFRMFL:O2,W,5,LAGLA/SLAY/DATA/ZOUTFILE. 
220$:DATAIOS 

2254#2FHPERDAY. 

2408#2MD5 1. 

Z24242MD32. 

25085 ENDO 


FIGURE 13. JCL FOR A SETUP PROGRAM 
FOR A NOTIONAL BASE FOR AN MD WITH TWO MDSs 


#LIST LAGLA/STARS/UCL/IM/ SET SUPN 


LOO#BN, ROXL) 

110%: IDENT: & IDENT. 

120$: NOTE: SET3UFN RLIN FOR &NAME. 

1206: 0PTION: FORTRAN 

140$2 SELECT: LAG1IA/STARS/OBJECT/IM/ SETUPN, 
1508s SELECT:LAGIA/LMILIB.O/FIPECMPU 

1608: SELECT: LAGZLA/LMILIE.O/EROCMP. © 

1708: SELECT: LAGLA/LMILIE.O/OFACTLNO 

1758: SELECT: LAGIA/LMILIB.O/MSORTD, 0 

120$: EXECUTE 

IVOSSLIMITS: BY, 25K,.10K 

2008? TAPE?:01,A10D,,&DIST-T#H. ,.### 

21065 PRMFL: O2,W, '5,LAG1LA/SLAY/DATA/&OUTFILE. 
22063 DATA: 05 

Z235#&FHPERDAY. 

24082MDS1. 

242H&M0S2. 

244HRM052. 

250$: ENDO 


FIGURE 14. JCL FOR A SETUP PROGRAM FOR A 
NOTIONAL BASE FOR AN MD WITH THREE MDSs 


19 


#LIST LAGLIA/STARS/JICL/OM/ SET 4UPN 


LOO##N, ROXL) 
110$2 IDENT: & IDENT. 

12O0$:NOTE: SET4UFN RUN FOR &NAME. 

12082 0PTION: FORTRAN 

140: SELECT: LA61LA/STARS/OBJECT/OM/ SETUPN.O 
15O$!: SELECT? LA4Z1A/LMILIB.O/FPIPECMPO 

1406: SELECT: LAé1A/LMILIB. O/EBOCMP. 

170$: SELECT: LASé1A/LMILIB.O/DFACTLNG 

175%: SELECT: LAéZ1A/LMILIB.O/MSORTO. 

180%: EXECUTE 

LPVOS*SLIMITS: 39, 25K,,. 10K 

20082 TAPEYZ 01, A100, .&01I57T-T#. »,### 
210$8PRMFL: O2,W, 3,LAGLA/SLAY/DATA/&ZOUTFILE. 
2208: DATAIOS 

Sa5H#2FHPERDAY. 

240#2MDE 1. 
242#2MIIS2, 
2448#2MU53, 
24GH2M0S4, 
250%: ENDUCE 


FIGURE 15. JCL FOR A SETUP FROGRAM FOR 
A NOTIONAL BASE FOR AN MD WITH FOUR MDSs 


A listing of the source code for the Setup Program for a particular 


base is contained in Appendix G. Appendix H contains the source program for a 


notional base. 


Appendices J and K contain samples of output file listings produced 


by the Setup Programs for a particular base and a notional base, respectively. 


WAR RESERVE SPARES 


War reserve spares are easily modelled by the SGM system. In running the 


Aircraft Availability Model, the user must exclude war reserve spares from the 


asset position. Then, the Air Force Logistics Command's D029 system output 


file is used to determine the range and depth of the particular war reserve 


spares kit (WRSK) of interest and those quantities by stock number are simply 


added to the output file of the Setup Program. If the UE strength of the base 


of interest is different from the UE strength for which the WRSK was designed, 


20 


the user must adjust the quantities in the WRSK as he deems appropriate. The 


addition of war reserve spares to the output of the Setup Program can be done 


with a simple program of the user's design or even with the system's edit 


capability. 


APPENDIX A 


SOURCE CODE OF THE SHOPPING LIST PROGRAM 


SYSTEM PLIST LASLA/STARS/SOURCE/IR/SSHOPO! 


FOC ## ## SSHOPOL 6/12/81 FOR IR PASSES SRUEBO FROM SHIIREO!. 
{000C #% ## SHOPLO4 5/12/81 FOR INDENTURE-REPAIR 

1010C THIS VERSION IS GREATLY MODIFIED W/ MORE PRINTOUT AND COMMENTS 
1020C ## ## SHOPLO3 2/12/81 INDENTURE REPAIR 

1030€ ADDED STATEMENTS TO WRITE TO FILE 4 

1040C 

1050C ## #¢ SHOPLOL 1/28/81 FOR INDENTURE-REPAIR 

1080 DIMENSION CSV(45), INUXMD (45). SHARE (45) NAIR(45) 

1070 REAL MACCASHR (45), MACCASHP (45) MXCOST 

1080 CHARACTER NSN#18, ALC#2, SMC#4, SONSNT#19( 200) MD#4, MACMDH4 (45) 
1090 CHARACTER MDI#3, IEC#3 

1100 INTEGER NWRITES/O/, ITARGET 

1110 LOGICAL DEBUG 

1120 CALL RANSIZ{02: 365: 0) 

1130 READ(02’ 1 NDECIDE, NAIR, MACMD, DATEL» TIMEL 

1140 WRITE (4) °222222222222222272",0. 

1150 NUMMD=0 

1160 2 NUNMD=NUMMD+1 

1170 TF (MACMD(NUMMD) .NE."ZNUL")GO TO 2 

1180 READ(03, 5) IDECIDE 

1190) = S FORMAT(V) 

1200 IF ( 1DECIDE. GT. NDECIDE) IDECIDE=NDECIDE 

1210 READ(02" IDECIDE+2)CSV, CSV, CSV 

1220 WRITE(6, LO)NDECIDE, IDECIDE 

1230 10 FORMAT(*! NDECIDE, IDECIDE =", 213) 

1240 00 15 1=1,NueD 

1250 WRITE (6) 12) MACMD(T) ,CSV(T) 

1260 12 FORMAT(" MACMD, CSV = *,A4,E12.5) 

1270 15 CONTINUE 

1280 WRITE(S) IDECIDE 


131, OC HHHMHHHHHHHHHHHEHHHHHHHHHHHHHHEHHEHHHHHHHHEHHHHHHBHHHHEHES 
1320C#### BEGIN NEW COMPONENT. INITIALIZE # BOUGHT AND MXCOC.. 
1330CHHH = AXCOST IS THE MAX, OVER ALL MD’S, OF THE $’S TO THE COMPONENT. 
1340 20 LRUSBAWT=0 

1350 MXCOST=0. 

1360 READ (1,END=999) 

1370 td1SN, COST RCOST» ALC, SMC, TASSE, MAXREP» NWRMA, MRM 

1380 &COMINS, COMINSR» CONMSRU, COMMSRUR» COMNAS, COMNASR: COMNEG, COMNEGR, 
1390 &COMP IP, COMP IPR» PCOMSRU, PCOMGRUR, EBOS, SVPBAWT  NSONS, MDCT 

1400 & MDI, IEC 

1410 DEBUG=(NSN. GT. "284000000". AND. NSN. LT. "284000002") 

1420 &. OR. NSN. GT. "99999" 

1430 IF(DEBUG)PRINT," TAPE 1 HEADER °, 

144, &NGN, COST, ROOST, ALC, SMC, TASSE, MAXREP, MWRMA, MWRMR» COMINS» 

1450 SCUMINSR, COMNSRU, COMMSRUR  COMNAS, COMNASR COMNEG, COMNEGR COMPIP, 
1480 COMP IPR, PCOMSRU, PCOMSRUR, EBOS, SVPBAMT NSONS, MDCT » MDI, IEC 

1470 TF(NSONS. GT.O)READ(1) (SONSNT (1), 1=1,NSONS) 

1480 IF (DEBUG. AND. NSONS. GT. O)PRINT, (SONSNT(1)+ T=1,NSONS) 


1490 SUNKC=COMINS +COMNAS +COMNE G+COMP IP 

1500 SUNKR=COMINSR+COMNASR+COMNEGR+ COMP IPR 

1510 NPROC=( SUNKC~SUNKR) /COST+. 5 

1320 NREP=SUNKR/RCOST+, 5 

1530 ITASSE=TASSE+.5 

1540 IF (TASSE. LE. ~.5) ITASSE=ITASSE-{ 

1550 TTASSE=TTASSE+NPROC-+NREP 

1560 IF (DEBUG)PRINT, " NPROC, NREP, ITASSE=", NPROC» NREP» ITASSE 


1570¢ 

1580C##H# PROCESS ALL MD’S THAT THE COMPONENT IS INSTALLED ON. 
{58 SVLAST=1. 

1590 DO 80 1=1,MDCT 

1600 READ( 1) MD, SHARE (1) » NREC 

1610 IF (DEBUG) PRINT, MD. SHARE (I) NREC 

1620C# === FIND MD 

1630 DO 30 1, NUD 

1640 IF (MD. EQ.MACHD(J) G0 TC 40 


1650 30 CONTINUE 
1660C# === COULDN’T FIND MD 


1670 PRINT," C#><®)><#> ", MD." NE.ANY MD’S LISTED® 
1680 INDXMD( 1) =NUMMD 

1690 TF(NREC.E0.0)60 TO 80 

1700 DO 35 K=1,NREC 

1710 READ(1) 

1720 35 CONTIME 

1730 GO TO 80 

1740C 


1750C# = === POCESS THIS MD. UPDATE IF TCOST EXCEEDS MXCOST. 
1760 40 TCOST=0. 


1770 INDXMD(1)=J 

1780 IF(NREC.E@.0)G0 TO 80 

1790 DO SO K=1,NREC 

1800 READ(1)SV, GLCOST, GLCOSTR, NLRUS» SVP, SRUEBO 
1810 IF (DEBUG)PRINT," REC IS *,SV,GLCOST, GLCOSTR, NLRUS, SVP 
1820 IF(SV.LT.COV(J) G0 TO 60 
1830 TCOST=TCOST+GLCUST/ SHARE (I) 
1840 IF(TCOST.LE.MXCOST)GO TO 50 
1845 SVLAST=SV 

1850 MXCOST=TCOST 

1860 LRUSBAWT=NLRUS 

1870 SVPBAWT=SVP 

1875 SRUEBAWT=SRUEBO 

1880 50 CONTINE 

18% GO TO 90 

1900 60 —IF(K.£@.NREC)GO TO $0 

1910 DO 70 L=K+1,NREC 

1920 READ(1) 

1930 70 CONTIN 

1949C 

1950 80 CONTIN 

1960 

1970€ 


1980C##++ COMPUTE FINAL VALUES AND WRITE, 


2260 
2280 


TTARGET= I TASSE+LRUSBAWT 
NLRUSPRO=MAX ( NPROC, NPROC+_RUSBAWT-MAXREP ) 
NLRUSREP=NREP +NPROC +_RUSBAWT -NLRLISPRO 
IF(DEBUG)PRINT," TARGET» NURUSPRO=", I TARGET NLRUSPRO 
DO 90 I=1,MOCT 
IXMD= INDXMD(1) 
MACCASHP ( 1XMD)=MACCASHP ( IXMD) +SHARE (1) #NLRUSPRO#COST 
MACCASHR (1 XMD)=MACCASHR ( IXMD) +SHARE (1) #NLRUSREP#RCOST 
90 CONTINUE 
IF (NSONS.LE.0)G0 TO 105 
DO 100 1=1,NSONS 
100 WRITE (4)SONSNT (1), SVPBAWT 
105 NWRITES=NWRITES+1 
IF (NOD(NARITES, 50). EQ. 1) WRITE(6, 150) 
150 FORMAT("1 NSN°,9X,"ALC SMC COST", SXs “RCOST"» 3X, 
&° TARGET NURUSREP NLRUSPRO SVLAST EBOS ITASSE NREP NPROC" 
& +" LAST MD NREC SRUEBO") 
WRITE(S)NSN. ALC, SMC COST ROOST, I TARGET | NLRUSREP NLRUSPRO, SRUEBAWT 
WRITE (6, 200)NSN, ALC; SHC, COST, RCUST» ITARGET» NURUSREP , NLRUSPRO 
& »SVLAST,EBOS, ITASSE, NREP, NPROC, MACMID( IXMD)» NREC, SRUEBAWT 
200 FORMAT(1X>A18) 1X1A21XsA42F10.20F9. 2s 1bs 219s 1X) 2E9, 2, 
& 316, 4X,A4,17,F9.2) 


WRITE (9, $050) NUMAD 
2270 1050 FORMAT (1X, 13) 


WRITE( 9, 1060) (MACHD( 1), 1=1,NUMMD) 


2290 1060 FORMAT (1X»A4) 


2300 
2310 
2320 
2330 


WRITE (9) (MACCASHR( 1), I=1,NUMIMD) 
WRITE(9) (MACCASHP( 1), I=1,NUNMB) 
PRINT," NWRITES="NWRITES 
STOPS END 


APPENDIX B 


SAMPLE OF OUTPUT FROM THE 


SHOPPING LIST PROGRAM 


SSSSESSESHESESEEEKSESELESESSSESTISSESHESESSSLESSESSSESSTHKSESSSESSSSSSSSSSESESSKESSESS 
SSSESSSSETSSESSSSSSSSIESSSSSSSHSSSSSESSSESESSHSSSSESESSSSSSSSESSSSSSSSSSHESSESFHESSESSSS 


S$ssSs S$83 SSSSS 
§ : $ 
Ss $SSSS 
$ § $s 
§ $s § 
§ Ssss SS$S 


w 
AARAAMIN 


n 
n 


$525 


SSKSESSSHESEESEESESSESSHESHESHSSHSSSSSSSSSSESHSSFSHSSSSSSSHSSSSSSSSSSSSSSSSESLSESESSSSSS 
SSSSSSSSSSTSSSHSSSSSSESSSSESESSSKSSSSESSSSSSSSSHSSSSSSSSSSSSSSSSSSSSSSSESSESSSSSESE 


$s 7OSLU ENTERED C AT 11.258 FROM TSS/S 0-08-16 


0001 
09% 
0003 
00048 
0n05 
0006 
nno7 
0008 
1990e 
0011 a 
0012 
90123 
0014 
0015 
0016 
0017 


SNUMB 7OS1iu 

COMMENT OS295LAY TSS CARDIN 

USERTO CSP9SLAYS#sRnaeaeAeE 

IDENT OS2911N2320 ,OS29USLAY 

NOTE SSHOP (LRU SHOPPING LIST WITH SRUESQ) RUN FOR SRELL 

MSA1 4, ULGSSTWRM8NS3,082942,090 

CPTION FORTRAN 

SELECT LAnmIA/STAPS/OBJECT/IR/SSHOP.C 

PFAJECT SSHPO? 6/12/81 FOR IR PASSES SRUEBO FROM Y16,3A409048),., 

EXECUTE 0 

LIMITS 39,14K,,25K 

TAPEQ 01,%100,,78506,,8%8 

pQmey 92,R,P,LAGLA/STARS/JOPS/IMRMB0S3/ISTAT 

Pata oF 

FILE va, NULL 

TAPEQ HS eTIN, gg, SSIWPMBNS tenn 

0019 FILE 09,NULL 

0019 ENN JOR 0 
TOTaL Caro COUNT TekIS JOR = 000072 


n in n 


‘NARA NAAR A A ARIANRARA AR 


a 


ew BEGIN ACTIVITY sute GELOMAD OS/05/A1 Sw=000000000000 
QPERATGOR STARTED wiTh 221973 FOR FILE CODE 05 GE 690 BTL AFDSC 21971 21971 0 
INPUT STARTED WITH 828506 FOP FILE CODE 01 GE 600 BTL AFDOSC 28506 28596 0 
# NORMAL TERMINATICH, 4T 021103 125000 Sw=900000000000 


START 11,958 LINES 19707 PRNC 0.2299 1/0 0.069 Iu § 
STO2 12.264 LIMIT 25600 LIMIT 0.3900 LIMIT cu § 
Swap 0.906 

LaPSEe 6,209 A Tyee BUSY IPsat FP/RT IS/#C MS/#E ADORE 


nyay C 
0194 6 
TAea 

D194 0 
NULL 

TAPQ 

NULL 
syOut 


0-08- 
0-08- 


0=-0R- 


a 
So 
*#onro OTF + 
a 


0110 
120 
130 

oniag 
00180 
022 00 
09160 
od1790 

0180 

0190 
200 
220 

0230 
2a 

00250 


901 81248 
001 @1164 


MEMCRY 
Mat 
SS Ta 


1¢ 
16 


N-16<04 828505 


1 


0-00-00 
0-16-05 #21971 
0-00-00 


Le RF O19, « 0-08-02 


LIST TY2 LINES aT STA, 
Q8C-0H 19562 LINES aT STA, 
QC eka B1 LINES at STA, 


PeNncessar fri CORE TOTAL 
$7.36 $ 4.6 $ 5.00 $ 16.42 


SNUMRB = 70S1U, ACTIVITY # = 04, REPORT CODE = 74, RECORO COUNT = 0001123 
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APPENDIX C 


SAMPLE AIRCRAFT FILE (ACLIST) 
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3380 A007 
1240 A010 
1380 AQLO “ 
1450 A010 ¢ 
1940 A010 
2300 A0IO 
2480 A010 
2700 A010 
4260 A0L0 
4360 A010 ° 
5810 A010 
1220 8037 
1620 A037 
1900 A037 ’ 
2570 A037 
2680 A037 
4400 A037 
3510 A037 
3780 A037 
1050 BOS2 
1460 BOS2 
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2720 B0S2 
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2500 BOS2 ’ BOS2H’ 
3200 BOS2 “ BOS2H’ 
4160 BOS2 ’ BOS2H’ 
1800 Bill ’ FBLLIA‘ 
3930 Bil] “ FBILIA’ 
4650 Bll “ FBILIA’ 
4700 BLL ’ FBIL1A’ 
1010 CO0S ” COOSA’ 
1720 C005 ” COOSA’ 
5340 COOS “ COOSA’ 
1690 (007 ’ COO7A’ 
2470 C007 “ COO7A’ 
2780 C007 “ C007A’ 
3860 0007 ’ C007’ 
1560 C130 “ C1300’ 
2440 C130 ’ C1308’ 
2600 C130“ C130A’ 
4130 C130“ C1308’ 
4140 C130“ C1308’ 
4320 C130“ CI30A’ 
4440 C130 “ C1300’ 
479% C130“ C1308’ 
59 C130’ C130A" 
3070 C130’ = C130A’ 
5650 C130 “ C1308’ 
2090 C130 ’ ACI30A’ 
1290 C130 “ C1308’ 
1550 C130 “ €130B’ 
1600 C130” C130B’ 
1710 C130’ C130B’ 
1780 C130“ C130B° 
2810 C130 ’ = C130B° 
3310 C130 “= C130B’ 
3780 C130“ C130B’ 
3440 C130“ C130B’ 
3520 C130 “ C1308’ 
4980 C130“ C1300° 
1000 C130 “ C130’ 
1040 C130“ Ci30E’ 
1130 C130“ C130E” 
2240 C130’ C130E’ 
2710 C13 “ C130E” 
2900 C130’ C130E° 
3240 C130’ C130E’ 
3270 C130’ C130E’ 
3600 C130 “ CI30E’ 
3890 C130 “ C130E’ 
4720 C130“ C130E’ 
4880 (130 “ C130E’ 
4970 C130“ C130E’ 
3430 €130 ’ CI30E’ 
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5950 C130 “ C1308’ 
6250 C130 ’ C130€’ 
6390 C130“ CI30E’ 
3110 C130“ NC130€/ 
5740 C130 “ MC130E/ 
6040 C130 “ MC130E’ 
6260 C130 ’ MC130E’ 
1070 C130 ’ WC130E’ 
3260 C130 “ WC1S0E’ 
1770 C130.” C130H" 
3610 C130“ C130H" 
5550 C130“ CI30H’ 
$080 C130 * ACI30H’ 
2710 C130 ’ DC130H’ 
2820 C130 ’ HC130H’ 
2920 €130 ’ HC130H’ 
3030 C130 ’ HCi30H’ 
3410 C130 “ HC130H’ 
3810 C130 “ HC130H’ 
3980 C130 “ HC130H’ 
4210 C130 ’ HC130H’ 
5050 C130 “ HCL30H’ 
5270 C130 ’ HC130H’ 
5830 C130 ’ HC130H’ 
$100 C130 ’ HC130H’ 
3250 C130 ’ WO130H’ 
3040 C130 ’ HC130N’ 
3970 C130 ’ HC130N’ 
5060 C130 “ HC130N’ 
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6090 C130 ” HC130N’ 
1670 C131’ C131B’ 
2130 Ci31 “° C131B° 
2310 C131’ C131B’ 
3430 C131“ C131B/ 
4730 C131“ C1318’ 
5370 C131“ C131B’ 
1310 C131 % CL3iD’ 
1350 C131’ C131D’ 
1390 C131’ C131D/ 
2330 C131“ C13iD¢ 
7380 C131’ C1310’ 
2520 C131“ C1310’ 
2730 C131” = C1310’ 
3130 C131’ = C131D° 
3170 C131’ C1310’ 
3570 C131’ C1310’ 
4060 C131“ C1310’ 
4280 C131’ Cl3iv’ 
4410 C131“ C131D’ 
4570 Ci3i ’ = C131D/ 
4850 C131“ C1310’ 
5010 C131’ C1310’ 
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5250 C131’ Ci31D’ 
3490 C131“ C1310’ 
3620 C131“ C131D’ 
1370 C131’ CI3iE’ 
1610 C131 ° CI13i1E’ 
2560 C131. ° C131E’ 
4770 C131.“ CISIE’ 
4900 C131“ CI3IE’ 
4500 C135“ C135A’ 
5660 C135“ C135A’ 
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1030 C135 ° KC135A’ 
1060 Ci3S ’ KC135A’ 
1190 C135 ’ KC135A’ 
1200 C135 ’ KC135A’ 
1250 C135 ’ KC135A’ 
1330 €135 “ KC135A’ 
1450 C135 ’ KC135A’ 
1480 C135 ’ KC135A’ 
1570 C135 “ KC135A’ 
1750 C135 “ KC138A’ 
2120 C135 ’ KCL3A’ 
2180 C135 ’ KC135A’ 
2260 C135 “ KC135A’ 
2320 CIS “ KCISSA’ 
2400 C135 ’ KC135A’ 
2490 Ci3S ’ KCiSSA’ 
2580 C135 ” KC135A’ 
2610 C135 ’ KCISSA’ 
2670 C135 ” KCISSA’ 
3190 CI3S ” KCISA’ 
3620 C135 ’ KCI35A’ 
3630 C135 ’ KC135A’ 
3790 CIS % KCISA’ 
3840 Ci3S * KC135A’ 
4040 C135 ’ KC135A’ 
4080 C135 ’ KC135A’ 
4120 C135 * KC135A° 
4150 C135 ’ KC135A’ 
4640 CID % KCISA’ 
4680 C135 ’ KC135A’ 
4690 C135 ’ KCI35A’ 
4890 C135 * KC1350" 
4930 CIS % KCi SSA’ 
4960 C135 ° KC135A’ 
5100 C135“ KC135A’ 
S350 CISS % KCI35A’ 
9720 C135 ’ KCISSA’ 
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3320 F004 ’ FOOSC’ 
3460 F004 ’ FOOL’ 
3680 F004 “ FOOAC’ 
4420 FOO4 “ F004C’ 
5040 F004 “ FOOAC’ 
5090 FOO4 “ FOOAC’ 
3210 F004 “ FOOAC’ 
1280 F004 ’ RFOOAC’ 
1320 F004 ’ RFOO4C’ 
1360 F004 ’ RFOOEC’ 
1630 F004 ’ RFOOAC’ 
1740 F004 * RFOOAC’ 
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3390 F004 ” RFOOAC’ 
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3580 F004 “ RFOOAC’ 
4860 F004 ’ RFOOAC 


2850 F004 ’ FOO4D’ 
3010 Food “ F004D’ 
3740 Fo04 ’ FOO4D’ 
4050 F004 “ FOO4D’ 
4330 FOO4 “ FOO4D’ 
6070 F004 ’ FOO4D’ 
6130 F004 ’ F004D’ 
6300 F004 ’ F004D’ 
6330 FOO4 ’ FOO4D’ 
6340 FOO4 ’ F004D’ 
1810 FOO4 “ FOO4E’ 
2010 F004 ’ FOOME 
2210 FOO4 ’ FOO4E 
2420 FOOS ’ FOOME 
2870 FOO4 “ FOOAE 


5580 F005 ’ FOOSB’ 
3280 FOOS ’ FOOSE’ 
4350 FOO5 ’ FOOSE’ 
5600 FO0S ’ FOOSE’ 
5790 F005 ’ FOOSE’ 
5900 FOOS ’ FOOSE’ 
5980 FOOS ’ FOOSE’ 
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5850 FOIS ’ 
3960 FOIS ’ 
5990 FOLS ’ 
6050 FOIS ’ 
1830 FOIS ’ 
2060 FOIS ’ 
2980 FOIS ¢ 
3500 FOIS ’ 
3660 FOIS ‘ 
4390 FOIS ” 
5240 F015 ’ 
5860 FOIS ’ 
5970 FOIS ’ 
6060 F015 ’ 
1880 FO16 ’ 
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5730 FOL ’ 
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3730 FOL6 ’ 
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3290 F106 ’ 
SIMO F106 “ 
B10 F106 ” 
3640 FI06 “ 
3900 F106 ’ 
4170 F106 ’ 
4300 F106 “ 
4590 F106 ’ 


FO15A’ 
FOLSA’ 
FOISA’ 
FOLSA’ 
FOISB’ 
FOLSB’ 
FOiSB’ 
FO1SB’ 
FO1SB’ 
FO1SB’ 
FO15B’ 
FO158’ 
FO15B’ 
FO1SB’ 
F016A/ 
F016A’ 
FO16A’ 
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5390 F106 
1510 F106 
7360 F106 
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* FAO6B’ 
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2640 F106 
3160 F106 
3220 F106 
3300 F106 
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4600 F106 
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5540 001 
3590 O00! 
4760 001 
1090 HOO! 
1870 HOO! 
1980 HOO! 
2290 HOO! 
2890 HOO! 
299 4001 
3060 HOOL 
3090 HOO! 
3120 HOO! 
3360 HOO! 
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4710 HOO1 
3470 HO01 
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2450 HOO! 
3480 HOO! 
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* FLLID’ 
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* FALE’ 
+ FRLIE’ 
* FALE’ 
FILE” 
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3650 HOO1 ’ UHOOIP’ 
3710 HOOL ’ UHOOIP’ 
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3530 1033 
3% 1033 
3760 T033 
3920 1033 
370 1033 
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M450 T033 
4580 1033 
4660 T033 
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4820 1039 ° CTO39A’ 
4990 T0239 ’ CTO39A’ 
S150 TO39 ° CTO39A’ 
3640 1039 ’ CTO39A’ 
3880 1039 ’ CTO39A’ 
4030 T039 ’ CTO39A° 
6240 T039 ’ CTO39A’ 
$360 TOS? ° CT039A’ 


1160 1043 
1410 7043 
3830 1043 
4620 VO10 
6160 VO10 
6280 VO10 
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133 10 10 
13% 4 4 
139 9 «9 
15 2 2 
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1735 6 6 
182 3 3 
5 4 4 
153 2 2 
9) 12 12 
114 16 16 
174 16 16 
177 45 45 
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APPENDIX D 


SAMPLE BASE LIST 


SYSTEM LIST LA6LA/STARS/COMMON/ DM/PDSOUREF 


1 ALLEN C, THOMPSON 
2 ALTUS AFB 

3 ANCHORAGE/ TAP 
4 ANDERSON AFB 

5 ANDREWS AFB 

6 BANGOR IAP 

7 BARKSDALE AFB 
8 BAINES NPT 

9 BEALE AFB 

10 BERGSTROM AFB 
11 BIRMINGHAM MPT 
12 BLYTHEVILLE AFB 
{3 BOISE 

14 BRADLEY 

15 BUCKLY 

16 BURLINGTON 

17 CANNON AFB 

18 CAPITOL 

19 CARSWELL AFB 


27 DONNELLY 
28 DAVIS MONTHAN AFB 
29 DES MOINES 
20 DOBBINS AFB 
31 DOUGLAS 
32 DOVER AFB 
33 DULUTH 
34 DYESS AFB 
35 £ WA 

36 EDWARDS AFB 
| 37 EGLIN AEB 

38 EIELSON AFB 
39 ELLINGTON AFB 
40 ELLSWORTH AFB 
: 41 ELMENDORF AFB 
| 42 ENGLAND AFB 

43 FAIRCHILD AFB 

. 44 FARMINGDALE 
: 45 FORBES 


46 FRESNO 


47 FT SMITH 
48 FT WAYNE 

. 49 GEN. B MITCHELL 
50 GEORGE AFB 


Si GLENN MARTIN 
52 GRAND FORKS AFB 

53 GREAT FALLS 

54 GREATER PEORIA 

SS GREATER PITTS 

56 GREATER WILMINGTON 
37 GRIFFISS AFB 
58 GRISSOM AFB 

99 HANCOCK 

60 HARRISBURG 

61 HARTFORD 

62 HECTOR FIELD 
63 HICKAM AFB 

64 HILL AFB 

65 HOLLOMAN AFB 
66 HOMESTEAD AFB 
67 HULMAN 

68 HURLBURT 

69 INDIAN SPRINGS 


76 KEY FIELD 
77 KINGSLEY 
78 KIRTLAND AFB 

79 LAMBERT 

80 LANGLY AFB 

81 LAUGHLIN AFB 
82 LINCOLN 

83 LITTLE ROCK AFB 
84 LORING AFB 
85 LUKE AFB 

86 MAC DILL AFB 


97 AC GUIRE AFB 

98 MEMPHIS 

99 MINN/ST PAUL 
100 MINOT AFB 
101 MOFFETT FIELD 

102 MOODY AFB 

103 MT HOME AFB 


104 MYRTLE BEACH AFB 
105 NAFEC 

106 NASHVILLE 

107 NELLIS AFB 

108 NEW ORLEANS 

109 NIAGARA FALLS 
110 NORTON AFB 

111 GFFUTT AFB 

112 ONTARIO 

113 OTIS 

114 PATRIK AFB 

115 PEASE AFB 

116 PETERSON AFB 
117 PHOENIX 

118 PLATTSBURGH 

119 POPE AFB 

120 PORTLAND 

{21 PUERTO RICO 

122 RANDOLPH AFB 
123 REESE AFB 

124 RENO 

125 RICHARD E BYRD 
126 RICHARDS GEBAUR AFR 
127 RICKENBOCKER AFB 
128 ROBINS AFB 

129 ROSECRANS 

130 SALT LAKE CITY 

131 SAVANNAH 

132 SCHENECTADY 

133 SCOTT AFB 

134 SELFRIDGE 

135 SEYMOUR JOHNSON AFB 
136 SHAW AFB 

137 SHEMYA AFB 

138 SHEPPARD AFB 

139 SIOUX CITY 

140 SPRINGFIELD 

141 ST LOUIS 

142 STANDIFORD 

143 SUFFOLK CO. 

144 TINKER AFB 

145 TOLEDO EXPRESS 

146 TRAVIS AFB 

147 TUCSON 

148 TULSA 

149 TYNDALL AFB 

150 VAN NUYS 

151 VANCE AFB 

152 VANICNBERG AFB 

153 WESTCHESTER CO. 
154 WESTOVER AFR 
155 WHEELER AFB 
156 WILL RODGERS 


{57 WILLIAMS AFB 

158 WILLOW GROVE 

159 WRIGHT PATTERSON AFB 
160 WURTSMITH AFB 

161 YOUNGSTOWN 

162 ALCONBERRY 

163 BENTWATERS/WOODBR I DGE 
164 BITBURG 

145 CLARK 

166 C P NEW AMSTERDAM 
167 DECTMOMANNU 

168 HAHN 

169 HOWARD 

170 KADENA 

171 KUNSAN 

172 LAKENHEATH 

173 MILDENHALL 

174 OSAN 

175 RAMSTEIN 

176 RHEIN MAIN 

177 SEMBACH 

178 SPANGDAHLEM 

179 TALGER 

180 TARREJON 

181 UPPER HEYFORD 

182 YOKOTA 


183 7WEIBRUCKEN 


APPENDIX E 


SOURCE CODE OF THE DISTRIBUTION MODEL 


SYSTEM PLIST LAGLA/STARS/SOURCE/DM/PICNDO! 


1000C ## ## PICND 1/18/79 FOR DISTRIBUTION MOD-METRIC 
1010 SUBROUTINE PICND 

1020 COMMON/ GENERAL / DEBUG, NSNOUT, S 

1030 CHARACTER NSNOUT#13 

1040 INTEGER S$ 

1050 LOGICAL DEBUG 

1060 
1070 COMMON/ DEBOBLK/ CUTOFF » BEBO (2000), DPIPE, DEBOCNT, INDXDBO, LUMPD 
1080 &» MXNUMDEP, MXTOTDEP, NTQTDEP OIMRTO 

1090 INTEGER DEBOCNT 

{100C 

{110 COMMON/EBCIBLK / BRCRQ, BSHARE (257) COTAIL( 257) ,EBO(257) »KBASES 
1120 & NBASES, NLRUS (257), OSTRQ, PIPE(257) , SRUEBO( 257). SYSEBO, TERM(257) 
1130 & PIPMIN(257) 


1140C 

1150 COMMON/? ICBLK/BEBOMIN( 257)» EROMIN, NURMIN(257) 
11400-—-—--—- 

1170 INTEGER DELTND 

{10¢ 


1199 INTEGER NEXT2(4) ,NEXT3(8) »NEXT4( 16) »NEXTS(32) »NEXTO(64) 

1200 INTEGER NEXT7( 128), JWINL(2) > JWIN2(4) > WWIN3(8) > AWINA (16) > JHINS(32) 
1210 INTEGER JWING(64), JLOSEL (2), JLOSE2(4) » JLOSE3(8)» JLQSE4( 16) 

1220 INTEGER ULOSES( 32), LOSES (44) 

1730 INTEGER JWIN7 (128), JLOSE7 (128) NEXTS( 255) 

41240 
1250C-——— THIS SUBROUTINE SEARCHES FOR THE ND (# OF DEPOT SPARES) WHICH 
1260C-—— GIVES THE LOWEST EBO (FOR A GIVEN S). S IS THE TOTAL # OF SPARES 
$270C-——~- WORLDWIDE. 

1230 ASSIGN 2000 TO LINEBO 

1290 IF (NBASES-2)5; » 

4300 ASSIGN 3000 TO LINERO 

1320) IF(S-1)55; 

1330 ASSIGN 4000 TO LINEBO 

1340 IF (NBASES-40)5,» 

1350 ASSIGN 5000 TO LINEBO 

1360 5 NDWIN=O 

1370 ND=0 

1380 ASSIGN 10 TO LINEPK 

1390 GO TO 1000 

140)C-——- SAVE DATA FOR THIS CURRENT BEST CHOICE 

1410 10 D0 20 I=1,KBASES 

14>) NLRMIN(T)=NLRUS (1) 

1430 BEBOMIN( 1 )=€B0(1) 

1440 PIPMIN(I)=PIPE(1) 

1450 20 CONTINUE 

1460 EBOMIN=SYSEBO 

1470 EBOSAVE=SYSEBO 

1480 DEL TND=( DEBOCNT+LUMPD-1)/2 

1490 ASSIGN 25 TO LINEPK 


a et a a. 


1500 ND=DELTND 

1510 GO TO 1000 

1520 25 IF(SYSEBO.GE.EBOMIN)GO TO 200 
1530C—-- SAVE DATA FOR THIS CURRENT BEST CHOICE 
1540 DO 30 [=1,KBASES 

1550 NURMINGT)=NLRUS(T) 

1560 BEBOMIN( 1)=EB0(1) 

15/0 PIPMIN( 1 )=PIPE(1) 

1580-30 CONTIN 

150 EBOMIN=SYSEBO 

1600 NOWIN=ND 

1610 ND=DEBOCNT +_UMPD-2 

1620 ASSIGN 35 TO LINEPK 

1630 GO TO 1000 

1640 35 IF(SYSEBO-EBOMIN)37,, 

1650 IF (EBOSAVE-SYSEBO) 100, » 

1660 GO TO 200 

1670C-——— SAVE DATA FOR THIS CURRENT BEST CHOICE 
1480 37 DO 40 I=1,KBASES 

1490 NURMINGT)=NLRUS(T) 

1700 BEBOMIN( I)=EB0(1) 

1730 PIPMIN(1)=PIPE(T) 

1720 40 CONTINUE 

1730 EROMIN=SYSEBO 

1740 NOWINEND 

SS ee 
1760C-—-- LOWSIDE © CHECKS FOR NEXT BEST CHOICE ON THE LOW SIDE OF CURRENT 
1770C-——- BEST CHOICE FIRST. 

1780 100 IF(DELTND.EQ. 1 RETURN 

1790 DEL TND=. 6+DEL IND/2. 

1800 ND=NDWIN-DELTND 

1810 ASSIGN 110 TO LINEPK 

1820 G0 TO 1000 

18320 110 IF(EBOMIN-SYSEBO)130,, 

1840C-———- SAVE DATA FOR THIS CURRENT BEST CHOICE 
1860 DO 120 1=1,KBASES 

1850 NLRMIN( 1) =NLRUS (1) 

1870 BEBOMIN( 1) =EBD(1) 

1889 PIPMIN( 1)=PIPE(T) 

1890 120 CONTINUE 

1900 EBOMIN=SYSEBO 

1910 NDOWIN=ND 

1920 GO TO 200 

1930C-— LOW SIDE WASN’T BETTER, TRY HIGH SIDE (IF POSSIBLE). 
1940 130 IF (LUMPD+DEBOCNT-NOWIN-DEL TND~3) 100, » 
1950 EBOSAVE=SYSEBO 

1960 ASSIGN 140 TO LINEPK 

1970 ND=NDWIN+DEL TND 

1980 GO TO 1000 

1970 140 IF (SYSEBO-EBOMIN)170,» 

2000 IF (EBOSAVE-SYSEBO) 100; » 

2010 GO TO 200 

2020C--—- SAVE DATA FOR THIS CURRENT BEST CHOICE 


203) 170 DO 180 I=1,KBASES 
2040 NLRAIN(T)=NLRUS(T) 
2050 BEBOMIN( 1) =€B0(1) 
2060 PIPMIN( T)=PIPE(T) 
2070 +180 CONTINUE 

2080 EBOMIN=SYSEBO 
2090 NOWIN=ND 

21% GO T0 100 

21 10C 
2120C--—— HIGHSIDE CHECKS FOR THE NEXT BEST CHOICE ON THE HIGH SIDE OF 
2130C-——-- THE CURRENT BEST CHOICE FIRST. 

2140 200 IF(DELTND. £8. 1 RETURN 

21% DELTND=. 4+DELTND/2. 

2160 ASSIGN 210 TO LINEPK 

2170 ND=NDWIN+DELTND 

2180 GO TO 1000 

2190 210 IF (EBOMIN-SYSEBO) 230, » 

22nC——— SAVE DATA FOR THIS CURRENT BEST CHOICE 

2210 00 220 I=1,KBASES 

2220 NURMING T)=NLRUS(T) 

2230 BEBOMIN(1)=EB0(1) 

2240 PIPMIN(I)=PIPE(I) 

2250 220 CONTINUE 

2260 EBOMIN=SYSEBO 

2270 NDWIN=ND 

2280 GQ TO 100 

220~)C-—~-- HIGH SIDE WASN’T BETTER, TRY LOW SIDE (IF POSSIBLE). 

2300 230 IF(NDWIN.LE. DELTND)GO TO 200 

2310 EBOSAVE=SYSEBO 

2320 ASSIGN 240 TO LINEPK 

2320 ND=NDWIN-DELTND 

2340 GO TO 1000 

2350 240 IF(SYSEBOQ-EBOMIN) 270, 

236 TF (EBOSAVE-SYSEBO) 200, » 

2370 GO TO 100 

236)0C-——— SAVE DATA FOR THIS CURRENT BEST CHOICE 

2390 270 DO 280 I=1,KBASES 

2400 NLRMIN(T)=NLRUS(1) 

2410 BEBOMIN( 1 )=€B0(1) 

2420 PIPMIN(])=PIPE(1) 

24-7) 280 CONTINUE 

244) EBOMIN=SYSEBO 

2450 NDWIN=ND 

246.0 GO TO 200 

20.7010 AHHH HHH 

2480C ## ## EBOCMP 5/14/79 FOR DISTRIBUTION MOD-METRIC 
ANC 

2500C-—- GIVEN A TOTAL $ OF SPARES WORLDWIDE (S) AND THE 2 OF SPARES 
210C-——- AT THE DEPOT (ND), THIS SUBROUTINE WILL ALLOCATE THE REMAINING 
220C--— SPARES OPTIMALLY AMONG THE BASES AND COMPUTE THE EBO AT EACH 
2530C-——- BASE AND THE TOTAL EBO. 

2540C-——— BSHARE(J) IS THE PERCENTAGE OF THE TOTAL PIPELINE PRORATED 10 
BRC—— BASE (1) 


E-3 


2560C——- COTAIL(J) IS THE EBO REDUCTION FOR THE NEXT SPARE AT BASE (U-1) 
2970C——-- EBO(J) IS THE EBO AT BASE (J-1) AT THE CURRENT SPARES LEVEL 
2580C-—— NLRUS(J) IS THE CURRENT SPARES LEVEL AT BASE (J-1) 
2590C-————- PIPE(J) 1S THE RESUPPLY PIPELINE AT BASE (J-1) 
2600C-—— TERM(s) IS THE PROB, THAT THE # IN RESUPPLY AT BASE (J-1)=NLRUS(J) 
2610C-——- .=1 IS THE DEPOT (FORTRAN DOESN’T ALLOW A ZERO SUBSCRIPT) 
2620 1000 NLRUS(1)=ND 
DEPEBO=DEBO( 1 )-ND 
IF (ND. GE. LUMPD) DEPEBO=DEBO ( ND-_UMPD+2) 
EBO( 1) =DEPEBO 
NLEFT=S-ND 
SET UP EACH BASE FOR DISTRIBUTION COMP. COMPUTE LUMP FOK 
EACH BASE, ALLOCATE LUMP SACROSANCT, AND INITIALIZE ARRAYS. 
DO {200 J=2,KBASES 
BP IPE=BSHARE ( J) #( BRCRQ+0STRO+DEPEBLHOIMRTO) +SRUEBO( J) 
PIPE(J)=BPIPE 
IF (BPIPE.LT.13.)60 TO 1100 
LUMPB=BPIPE-3. #SGRT( BPIPE)~1 
TRMLOG=-BP IPE 
CTL=1. 
I=0 
IF (-86, -TRMLOG) 1040, » 
2780 1050 I=I+1 
2790 TRELOG=TRALOG+AL0G(BPIPE/T) 
2300 IF (86. +TRMLOG) 1050, » 
2810 1060 TRAFEXP( TRALOG) 
2820 DO 1070 1=1+%,LUMPB 
2830 TRMETRM#BPIPE/ I 
2840 CTL=CTL-TRN 
2850 1070 CONTINUE 
2360 TERM( J)=TRM 
2870 COTAIL(J)=CTL 
2880 NLRUS (J) =LUMPB 
2890 NLEFT=NLEFT-LUMPB 
2000 EBO(J)=BPIPE-LUMPB 
2710 GO TO 1200 
29720 1100 TERM(J)=EXP(-BPIPE) 
Pek. COTAIL(J)=1. -TERM(J) 
2940C——- TERM=P(BO=0) & COTAIL=P(B0>0) 
290 NLRUS( J)=0 
2960 EBO( J)=BPIPE 
2970 1200 CONTINUE 
2980C- 
2° 0 ———_—_—_—---—----~---- 
3000C-——- NOW ALLOCATE SPARES ONE AT A TIME FOR MAX EBO REDUCTION 
3010 IF (NLEFT 800,550, L INEBO 
220-——------— 
3030C-—— ONE BASE ALGORITHM 
3040 2000 NLAUSTOP-NLRUS (2) +L EFT 
3050 2500 IF(COTAIL(2).LE.0. G0 TO 9991 
3060 EBO(2)=EB0(2)-COTAIL(2) 
3070 NLRUS (2)=NLRUS(2)+1 
3060 IF (NLRUS(2)-NLRUSTOP) , 550, 


3090 TERM(2)=TERM(2)#PIPE(2) /NLRUS(2) 
3100 COTAIL(2)=COTAIL (2)-TERM(2) 
3110 GO TO 2500 

3120€ 

3130C-—— SIMPLE ALGORITHM FOR 2 TO 4 BASES, 

3140 3000 DG 3500 N=1,NLEFT 

3150 JBEST=2 

3160 DO 3300 U3, KBASES 

3170 3300 IF(COTAIL( J). GT. COTAIL( UBEST) ) JBEST=J 

3180 IF(COTAIL( JBEST).LE.0. G0 TO 999 

3190C-—— JEEST IS THE BASE WHOSE NEXT SPARE IS THE BEST NEXT CHOICE 
3200C-——- BUY THAT SPARE AND COMPUTE THE EBO REDUCTION FOR THE NEXT SPARE 
3210C-———- FIRST CREDIT THE EBO REDUCTION AND INCREMENT ASSET LEVEL 
3220C——— NEXT COMPUTE P{X=NLRUS) FOR NEW ASSET LEVEL & SUBTRACT THAT FROM 
3230C-——— COTAIL SO THAT COTAIL BECOMES P(BOD0) FOR THE NEW ASSET LEVEL 
3240 EBO( JBEST )=€B0( JBEST )-COTAIL ( BEST) 

320 NURUS( UBEST ) =NLRUS( UBEST} +1 

5260 TERM( JBEST )=TERM( JBEST) #P IPE (IBEST) /NLRUS ( JBEST ) 

32 IF{TERM( UBEST)) 999, 

3270 COTAIL( UBEST )=COTAIL ( JBEST )-TERM( BEST ) 

3280 3500 CONTINUE 

532) GQ TO 550 

3300€ 
3310C-—- VERSION 5 FOR 5 TG 45 BASES 

3320 4000 IF(COTAIL(3)-COTAIL(2))4310,, 
3330 J2=2 

R40 JBEST=3 

3350 60 TO 4320 

3360 4310 JREST=2 

3370 J2=3 

3380 4320 IF(COTAIL(4)-COTAIL(J2) 14230,» 
3390 IF (COTAIL(4)-COTAIL { JBEST) ) 4325) » 
3400 =U2 

410 J2=JBEST 

3420 JBEST=4 

3430 GO TO 4340 

3440 4325 Q=J2 

3450 JZ=4 

3440 GO TO 4340 

3470 4330 WO=4 

480 4340 IF (COTAIL(S)-COTAIL(J3) 4350; » 
3490 IF (COTAIL(S)-COTAIL (U2) 14346)» 
3500 IF (COTAIL(5)-COTAIL( JBEST) 14343, . 
S10C-— 5 IS BEST SO FAR. 


3520 JA=J3 
RSX] SN2 
3540 J2=JBEST 
5 JBEST=5 


3540 CJM=COTAIL( 4) 
370 GO TO 4340 
3580 4343 J4=3 

Kb] JJ2 

3600 J2=5 


3610 


CU4=COTAIL( U4) 


3620 GO TO 4360 
3630 4346 J4=B 
3640 5 
3650 CJ4=COTAIL( U4) 
3660 GO T0 4360 
3670 4350 J4=5 
3680 CJ4=COTAIL(5) 
3690 4360 5 
3700 4370 Jeut! 
3710 IF (CJ4-COTAIL(U) 14380) » 
3720 IF (U-KBASES) 4370, 4400, 
3730C~—- JHKBASES IS NEVER > 0 
3740 4380 IF (COTAIL(J2)-COTAIL (J) 4390+» 
3750 IF(COTAIL(J3)-COTAIL (J) 4385» 
3780 CU4=COTAIL( J) 
3770 JéeJ 
3780 IF( U-KBASES ) 4370, 4400, 
3790€-——— J-KBASES IS NEVER > 0 
3800 4365 CU4=COTAIL(J3) 
3810 Jha 
820 WJ 
3830 IF( J-KBASES) 4370, 4400, 
3840 4390 IF (COTAIL( UBEST)-COTAIL (J) ) 43955 
3850 CJA=COTAIL (U3) 
3860 Ja 
3870 a2 
3930 J2=J 
3 IF (U-KBASES) 4370, 4400, 
3900C-—— U-KBASES IS NEVER > 0 
3910 4395 CJ4=COTAIL (U3) 
3920 JA=8 
3930 J3=U2 
3940 J2=JBEST 
3950 JBEST=J 
3940 IF (J-KBASES ) 4370) » 
3970C-—— NOW BUY JBEST 
3980 4400 IF (COTAIL( JBEST).LE.0.)G0 TO 999 
S990C-———- BEST IS THE BASE WHOSE NEXT SPARE IS THE BEST NEXT CHOICE 
4000C--—- BUY THAT SPARE AND COMPUTE THE EBO REDUCTION FOR THE NEXT SPARE 
4010C-——- FIRST CREDIT THE EBO REDUCTION AND INCREMENT ASSET LEVEL 
4020C-—— NEXT COMPUTE P(X=NLRUS) FOR NEW ASSET LEVEL & SUBTRACT THAT FROM 
4030C-——— COTAIL SO THAT COTAIL BECOMES P(B0D0) FOR THE NEW ASSET LEVEL 
4050 NLRUS ( JBEST) =NLRUS ( JBEST) +1 
4060 NLEF T=NLEFT-1 
4040 EBO( JBEST)=€B0( UBEST)-COTAIL ( UBEST) 

ae 4045 TF(EBO( JBEST) 999, » 
4070 TERM( JBEST )=TERM( JBEST ) #P IPE ( UBEST ) /NLRUS( UBEST) 
4080 IF (TERM( JBEST) 5999, 
4090 COTAIL( JBEST)=COTAIL( JBEST )-TERM( JBEST) 
4100 IF (NLEFT) 550, 

7 $110 IF(COTAIL( JBEST)-CJ4) 4420, 5 


IF (COTAIL( JS) -COTAIL( UBEST) )4410,, 


4130 JPUBEST 

4140 JBEST=J2 

4150 J238 

4160 Jeu 

4170 GO TO 4400 

4180 4410 IF(COTAIL( J2)-COTAIL(UBEST) )4400, » 

4190 JEUBEST 

4200 JBEST=2 

4210 J2=J 

4220 GO TO 4400 

§2300-—— BUY J2 ~~ 

4240 4420 IF(COTAIL (U2) 999.» 

4260 NLRUS(J2) =NLRUS( U2) +1 

4270 NLEFT=NLEFT-1 
EBO(J2)=EBO(J2)-COTAIL (U2) 
IF (EBO(J2))999; » 
TERM( J2)=TERM(J2) #PIPE(J2) /NERUG( U2) 
COTAIL (2) =COTAIL( J2)-TERM( J2) 
IF (NLEFT) » 550, 
IF (COTAIL( J2)~CJ4 4430, » 
IF (COTAIL (J3)-COTAIL(J2) 14420,» 
J=J2 
J2=8 
Bed 
GO TO 4420 

4380C-——- BUY Bku4 

4390 4430 IF(COTAIL( U3) 999, , 

4400 EBO( J3)=EB0( U3) -COTAIL(J3) 

4410 NURUS (U3) =NLRUS (U3) +1 

4420 NLEFT=NLEFT-1 

4430 TERM( J3)=TERM( J3) #P IPE (J3) /NLRUS( U3) 
COTAIL( J3)=COTAIL (J3)-TERM (U3) 
IF(NLEFT)» 550, 
IF (C4) 999,» 
ERO(J4)=€B0(J4)-Cud 
NLRUS( U4) =NLRUS(J4) +1 
NLEFT=NLEFT~-1 
TERM(J4)=TERM(J4) #PIPE(J4) /NLRUS(J4) 
COTAIL (J4)=CU4-TERM( J4) 
IF(NLEFT) 1550, 4000 
@ 18 330 


4590C-—- TOURNAMENT FOR > 40 BASES 
4600 5000 IF(NBASES-128)5210,5215, 
4610C—~- TOURNAMENT HAS 8 ROUNDS. 
4620 ASSIGN 5480 TO LINETM 
46 IF(NBASES-256) » 5380, 
4640 DO 5205 J=KBASES+!, 257 
4650 5205 COTAIL(J)=0. 

4660 GO TO 5380 

4670 5210 IF (NBASES-64)5220,5225, 
4680C-—— TOURNAMENT HAS 7 ROUNDS. 
4690 DQ 5212 J=KBASES+!, 129 


4700 5212 COTAIL(J)=0. 
4710 5215 DO S217 1.128 

4720 5217 UWIN7(J)=s1 

4730 ASSIGN 5470 TO LINETM 

4740 @ TO 5370 

4750C-——- TOURNAMENT HAS 6 ROUNDS. 

4760 5220 DO 5222 U=KBASES+1,45 

4770 5222 COTAIL(J)=0. 

4780 5225 DO 5227 1,64 

4790 5227 JWING( J)=J+! 

4800 ASSIGN 5460 TO LINETM 

4910 GO TO 5360 

4820C-—-- SEM1-SEMI-SEMI-SEMI-SEMI-SEMI-SEMI-FINALS, 256 TEAMS 
4830C-- PLAY 123 GAMES. 


4840 5380 J6=1 
4850 DO 5389 J7=1,128 
4860 J8=U8+2 


4870 IF (COTAIL(J8)-COTAIL(J8-1)) 5383; » 

4880C--— J8 WON. AN UPSET, J8-1 WAS A HIGHER SEED. 

4890 JWIN7( 57) 28 

4900 JLOSE7 (J7)=u8-1 

4910 GO TO 5386 

4920C-——_ J8-1 WON. 

4930 3383 UWIN7(J7)=J8-1 

4940 JLOSE7 (J7)=U8 

4950 5386 NEXT8(J8-1)=7 

4960 NEXT8(J8-2)=J7 

4970 5389 CONTINUE 

4980C~-— SEMI-SEMI-SEMI-SEMI-SEMI-SEMI-FINALS. 128 TEAMS PLAY 64 GAMES, 
49%) 3370 J7=0 

3000 DO 5379 6=1,64 

3010 J7=57+2 

3020 TF(COTAIL( WIN7 (U7) )~COTAIL( SWIN7(J7-1)))5373), 
S030C-—— UWIN7(J7) WON, AN UPSET, JWIN7(J7-1) WAS A HIGHER SEED. 
3040 WING (U6) =H INT (J7) 

3050 LOSES ( J6)=JWIN7 (7-1) 

3000 GO 10 5376 

3070C-—— JWIN7(J7-1) WON, 

5080 5373 JWING{J6)=JWIN7(J7-1) 

5090 JLOSE6 (U6 )=JWIN7{ U7" 

5100 5376 NEXT7(J7-1)=6 

S110 NEXT7(J7) = 

5120 53379 CONTINUE 

5130C-——- SEMI-SEMI-SEMI-SEMI-SEMI-FINALS, 64 TEAMS F.~ 32 GAMES. 


S140 5360 J6=0 

3150 DO 5369 5=1,32 

3160 b= 1642 

3170 IF (COTAIL ( JWING (6) )-COTATL ( JWIN6( J6-1)) 5363» 

St80C  -—— JWIN6(J6) WON. AN UPSET, JWIN6(Jé~1) WAS A HIGHER SEED. 
3190 SHINS (5) =JWING (Jb) 

3200 JLOSES (U5) =UWING(J6-1) 

3210 GO TG 5366 


S220C --— JWIN6(J6-1) WON. 


5230 5363) WWINS(JS)=UHWING( 6-1) 


9240 JLOSES ( U5) =UWIN6 (4) 
520 5366 | NEXTS(U6-1) 5 
5260 NEXT6(J6)=J5 


5270 5369 CONTINUE 
S280C-——-_ SENI-SENI~SEMI-SEMI-FINALS, 


DO 5359 4=1,16 
5310 JS=J5+2 
3320 TF(COTAIL ( UWINS( JS) )-COTAIL( IWINS( 5-1) ) 15353) » 
S30C = -—— JWINS(U5) WON, AN UPSET, UWINS(JS-1) WAS SEEDED HIGHER. 
5340 JING (U4) = WINS (5) 
5380 JLOSES (4) =JWINS(U5-1) 
3360 GO TO 3356 
5370C = —— JWINS(J5-1) WON, 
3380 5353. UWIN4(J4)=UWINS(US~1) 
5390 JLOSES (U4) =JWINS(US) 
5400 5356 NEXTS(J5-1)=U4 
S410 NEXTS( JS) =J4 


3420 5359 CONTINUE 

S430C-—-— _SEMI-SEMI-SEMI-FINALS. 16 TEAMS PLAY 8 GAMES. 
5440 5340 J4=0 

5450 DO S49 J1,8 


3460 J4=J442 

3470 TF(COTAIL ( WINS (4) )-COTAIL (WINS (4-1) ))5343,, 
S480C  -—— UWIN4(J4) WON. AN UPSET. 
3490 JWINS(J3)= JING (04) 
3500 JLOSE3 (U3) =JWINS (4-1) 
3°10 GO TO 534 

D20C -——- -JWIN4(J4-1) WON. 

9930 5343) WIN3(J3)=JWIN4(J4-1) 
3540 ULOSE3( U3) =JWINS (4) 
S90 5345 NEXT4(J4-1)=.8 

3360 NEXT4(J4) =J3 


5570 5349 CONTINUE 

SS80C--— QUARTER FINALS. 8 TEAMS PLAY 4 GAMES. 
5590 5330 JO=0 

3400 DO 5339 J2=1,4 


3610 WAN3+2 

3620 IF (COTAIL( JMINS(J3) ) -COTAIL ( WINS (3-1) 9333; 
5630C = —- UWINS(J3) WON, AN UPSET. 
3640 JWIN2(J2)=JWINS(3) 

3650 JLOSE2 (J2)=JWING (3-1) 
3660 GO 10 S36 

5670C = ———_ JWINS( 3-1) WON, 

5680 5333) JWIN2(J2)=JWINS( 3-1) 
3690 JLOSE2 (J2) =JWINS (3) 
5700 5336 = NEXT3(J3-1)=J2 

S710 NEXT3(J3) =J2 


5720 5339 CONTINUE 
S730C-———_ SEMI-FINALS. 
3740 5320 J2=0 

S70 DG 5329 Ji=i.2 


32 TEAMS PLAY 16 GAMES, 


5760 J2=J2+2 


5770 IF(COTAIL (WIN2 (U2) )-COTAIL ( UWIN2(J2-1)) 53235 
57800 49 -— UWIN2(J2) WON. AN UPSET. 
5790 UMINE (U1) =JMIN2(J2) 
5800 JLOSE 1 (J1)=UWIN2(J2-1) 
5810 GO 70 5326 

5820C 9 --- JWIN2(J2-1) WON, 

3830 5323 UWINA (JL) =uWIN2(J2-1) 
5840 ULOSEL (J) =JWIN2(J2) 
5850 5326 NEXT2(J2-1) =v 

3860 NEXT2(J2)=u1 

5870 5329 CONTINUE 

S880C-——-_ FINALS. 


5890 5310 IF(COTAIL( WIND (2) )-COTAIL ( WINS (1)))5313,, 

5900 JWIN= MINE (2) 

5910 LOSEO=JMINE CL) 

5920 GO TO 5500 

5930 5313 JWIN=JWINI(1) 

5940 JLGSEO= WING (2) 

5950 GO TO 3500 

£960C- 

5970C-—— JWIN HAS BEEN REPLACED BY HIS SECOND. REPLAY ALL GAMES THAT 

5980C—-- WIN WAS IN TO DETERMINE NEW WINNER. 

5990 S480 NOW=NEXTS(NOW) 

£000 JLOSE=UL0SE7 ( NOW) 

S010 TF(COTAIL i LOGE) -COTAIL { WIN) 15470,» 

6020 JLOSE7 (NOW) =JWIN 

6030 WIN=JLOSE 

6040 5470 NOW=NEXT7 (NOW) 

6050 JLOSE=JLOSE6 (NOM) 

6060 IF(COTAIL( LOSE) -COTAIL ( UWIN) 15460) » 

6070 LOSES (NOW) = WIN 

6080 UMINEULOSE 

6090 S460 NGW=NEXTS (NOM) 

$100 JLOSE=JLOSES ( NOW) 

4110 IF (COTAIL( LOSE) -COTAIL( IWIN) 15450) » 

$120 LOSES (NOW) = WIN 

$130 WIN=JLOSE 

6140 5450 NOWENEXTS (NOW) 

6150 JLOSE=JLOSE4( NOW) 

$160 IF(COTAIL( ALCSE)-COTAIL( WIN) 15440, 5 

6170 LOSES (NOW) =UWIN 

8180 WINS JLOSE 

6190 5440 NCMENEXT4 (NOW) 

$200 JLOSE=JLOSE3 (NOW) 

6210 IF (COTAIL( OSE) -COTAIL( WIN) 15430)» 
~ 6220 LOSES (NOW) =UWIN 

6230 JMIN= LOSE 

6240 5420 NOW=NEXT3(NOW) 

$250 JLOSE=ULOSE2 (NOW) 

4260 TF (COTAIL ( ULGSt )-COTAIL( JWIN) 15420, , 

. 6270 LOSE2 (NOW) =JWIN 
4280 AINEJLOSE 


6290 5420 NOW=NEXT2(NOW) 

6300 JLOSE=JLOSE 1 (NOW) 

6310 IF(COTAIL { JLOSE) -COTAIL ( UWIN) 15410, , 
$320 JLOSE! (NOW) =JHIN 

6330 WIN=ULOSE 

$340 S410 IF(COTAIL( JLOSEO) -COTAIL ( WIN) )5500, » 
6350 ULOSE=ULOSE0 

$360 JLOSEQ=UWIN 

8370 JWIN=JLOSE 


6390C-—- BUY UWIN, 

6400 5500 IF(COTAIL( JIN) .LE.0.)60 TO 999 

b410C—— UMIN IS THE BASE WHOSE NEXT SPARE IS THE BEST NEXT CHOICE 
6420C-——— BUY THAT SPARE AND COMPLITE THE EBO REDUCTION FOR THE NEXT SPARE 
bA30C-———- FIRST CREDIT THE EBO REDUCTION AND INCREMENT ASSET LEVEL 
b440C-—— NEXT COMPUTE P(X=NURUS) FOR NEW ASSET LEVEL & SUBTRACT THAT FROM 
S450C—-- COTAIL 90 THAT COTAIL BECOMES P(BO>0) FOR THE NEW ASSET LEVEL 
6460 EBO( WIN) =EBQ(uWIN)~COTATL( WIN) 

6470 NLRUS( IWIN) =NLRUS( JWIN) +1 

6480 = MEFT=NLEFT-1 

6490 TERM( WIN) =TERM( WIN) #P IPE JWIN) /NLRUS ( JMIN) 

6500 IF(TERM(WIN)), 999, 

6510 COTATL (WIN) =COTATL (WIN) -TERM ( UWIN) 

8520 NOW=JWIN-1 

6530C—— GO TO TOURNANENT REPLAY. BEGIN AT APPROPRIATE ROUND (LINETM). 
8540 IF(NLEFT), +LINETM 

$5500 -———----------------- —-------_-------— 
a 

S570C--—- TALLY UP TOTAL EBO AND G0 TO PICK ND (LINEPK) 

6530 550 SYSEBO=( 1, -GINRTO) #DEPEBO 

6590 TWO 600 J=2, KBASES 

6600 600 SYSEBO=SYSEBO+EBO( J) 

6610 —_IF(-SYSEBO)LINEPK,, 

6620 PRINT," SYSEBO.LE.0. FOR NDsNSNE*,ND," *, NSNOUT 

6430 650 DO 700 1=1,KBASES 

6640 NURMIN( I) =NLRUS(T) 

6650 BEBOMIN( I)=0. 

5660 700 CONTINUE 

6670 PRINT," RETURNING EARLY" 

6680 RETURN 

8690 800 SYSEBO=1.E6 

$700 «GO. TO LINEPK 

6710 999 SYSEBO=( 1. -OIMRTO) #DEPEBO 

6715 IF(NLEFT) sLINEPK; 

67200-— ALLOCATE NLEFT REMAINING 

67390 

6740 9000 JeJt! 

6750 «IF (J, GT. KBASES) J=2 

£760 NLRUS( J) =NLRUG(U)+1 

8770 NUEFT=NLEFT-1 

$780 IFI-NLEFT)9000,, 

6800 GOTO LINEPK 

4810 9991 PRINT," ONLY ALLOCATED *,S-NLRUSTOP+NLRUS(2)," OUT OF ",S; 


&" SPARES." 
NLRUS (2) =NLRUSTOP 
60 TO 550 
END 


SYSTEM ?LIST LAGLA/STARS/SOURCE/DM/FDEBOOL 


100C ## # FDEBO 4/13/79 FOR DISTRIBUTION MOD-METRIC 
110 SUBROUTINE FDEBO 

120 COMMON/ GENERAL / DEBUG, NSNOUT, $ 

130 CHARACTER NSNOUT#18 

140 INTEGER S 

150 LOGICAL DEBUG 

160C 
170 COMMON /DEBOBLK / CUTOFF , DEBO( 2000), DPIPE, DEROCNT» INDXDBO, LUMPD 
180 & MXNUMDEP MXTOTDEP» NTOTDEP: OLMRTO 

1% INTEGER DEBOCNT 

20-—---——_------— 

210 COMMON/EBOBLK/BRCRQ, BSHARE (257) COTAIL( 257) .EBQ( 257) ,KBASES 
220 fs NBASES NLRUS (297), CSTR@: PIPE (257), SRUEBO( 257), SYSEBO) TERM( 257) 
20 &s PIPMIN( 297) 

240C 
2500-——--—----- 

240 DEBO(1)=DPIPE 

270 PIPE(1)=DPIPE 

280 IF(DPIPE.LT. 13. )G0 TO 20 
290C 
3000---- BIG PIPELINE LOGICLTRMLOGSLOG P(N), WHERE P(N) IS 
310C-——- PROBABILITY DISTRIBUTION OF POISSON W/ MEAN = DPIPE. 
320C———- WORK WITH LOGS UNTIL TRMS ARE LARGER 

30 TRMLOG=-DP IPE 

440 LUMPD=DPIPE-3. #SQRT (DPIPE) 

3) TF(DEBUG)PRINT,* LUMPD=", LUMPD 


an nr ee oe, 


36) CTL=1. 
370 I=0 
380 IF(TRMLOG, GE. -86. 60 TO 12 


39) «10 I=I+1 

400 TRMLOG=TRMLUG+AL0G( DPIPE/1) 
410 IF( TRMLOG.LT.-86. 160 TO 10 
420 12 TRNEEXP( TRALOG) 

43) DO 14 T=]+1,LUMPD 

440 TRM=TRNDP IPE/ I 

40 CTL=CTL-TRN 

4014 CONTINUE 

470 DEBO(2)=DP ]PE-LUMPD 

480C---~ TRM=P(X=LUMPD) = CTL=P(X>LUMPD) 
4900 —-—--------_--- —--_--—- —_—— 
500C-——- WE HAVE A GLUMP OF SPARES(#=LUMPD) PUT INTO 
SL0C---- SECOND POSITION OF DEBO ARRAY, EACH GIVING AN 
5e(C---- ERO REDUCTION OF 1. TRM=P(LUMPD) .CTL=1-TAIL 
S30C-——— _(=SIGMA P(X), X=LUMPD TO INFINITY) IS THE ERO 
S40C--~- REDUCTION FOR THE LUMPD-PLUS-FIRST SPARE. WE NOW 
SOC CONTINUE WITH THE USUAL EBO LOGIC. 


S80C--—- REGULAR SIZE PIPELINE LOGIC 
390 20: TRM-EXP(-DPIPE) 


600 CTL=1.-TRM 

610C——-  TRM=P(X=0) « CTL=P{XD0) 

520 DERO(2)=DPIPE-CTL 

$30 LUMPD=1 

640 TRYETRIHDP IPE 

650 CTL=CTL-TRM 

S60C—~—— TRM=P(X=1) CTL=P(X>1) 

670 Btls! 

680 40 Lott 

6% DEBO(L+1)=DEBO(L)-CTL 

700 IF (DEBO(L#1).LE.0. G0 TO 50 

710 TRE TRMEOPIPE/ (L+LUMPD-t) 

72 CTL=CTL-TRM 

730C——— TRMEP(X=L+LUMPI-1) © CTL=P(X>L+LUMPD-1) 

74 IF(CTL. GT. CUTOFF. AND. (L+1).LT. INDXDBO. AND. L+LUMPD.LE.S)GO TO 40 
TH L=L4+1 
&-——_-- 
770C-——— CONPLITATION COMPLETED. SET COUNTS OF DEBG ARRAY SIZES 
780C--—- AND TOTAL UNITS CONSIDERED AT DEPOT 

790 SO NUNDEP=L 

800 NTOTDEP=L+_UMPD-2 

310 TF (NUMBEP. GT. MXNUMDEP ) MXNUMDEP=NUMDEP 

820 IF (NTOTDEP. GT. MXTOTDEP ) MXTOTDEP=NTOTDEP 

$30 DEBOCNT=NUMDEP 

340 RETURN 

0 END 


SYSTEM 2LIST LA6LA/STARS/SOURCE/DM/SHIDMMO1 


990C ## ++ SHIDMM REVISED 2/2/81 W/ SRUEBO RY FMS 
1000 COMMON/ GENERAL / DEBUG, NSNOUT, S 

1010 CHARACTER NSNOUT#18/’00°/ 

1020 INTEGER $ 

1030 LOGICAL DEBUG 

LO40Cs4HHHHHH: 

1050 COMMON/DEBOBLK/ CUTOFF » DEBO( 2000), DPIPE, DEROCNT, INDXDBO, LUMPD 
1060 &, MXNUMDEP, MXTOTDEP, NTOTDEP, OINRTO 

{070 INTEGER DEBOCNT 

LOQOC HHH 

1090 COMMON/EBOBLK/ BRCRQ, BSHARE (257), COTAIL (257). EBO( 257) _KBASES 
1100 &, NBASES, NLRUS (257), OSTR@: PIPE (257), SRUEBO( 257), SYSEBO, TERM( 257) 
1110 &, PIPMIN( 257) 

11 200 HHH 

1130 COMMON/P ICBLK/BEBOMIN( 257). EBORIN: NURMIN( 257) 

11 40CsHHHHHEE 

1150C 

1160 INTEGER BASET( 699), NAIRT (699), IFHT (699), LOCMDS (140), ITAB(45) 
1170 INTEGER QPAT( 140), 1XMDS( 140), IXBASE( 140) 

1180 INTEGER T, TARG, TARGET, S, OPA, VSLCNT 

1190 INTEGER NATRAFT( 699), JFORBMDS ( 1000), NFGRBMIS( 1000) 

1200 REAL LRUSHARE, FAPT( 140), FOURWRIGS (4), BMDSHARE( 1000), TWOWRDS (2) 
1210 CHARACTER SMC#4,ALC#2, MDI #6, [EC#2 

1220 CHARACTER NSNSRU#18/"00"/, NISAPP#15, SONSH#IS 

1230 CHARACTER#18 NSNVSL, APPNSN/“00’/>NSNSHOP//00~/ 

1240 CHARACTER MD#4,MDS#15,MACMD#4 (45), MIST#15( 140) MDSAKIS 

1250 LOGICAL MATCH 

1260C 

1770€ 

1.2800 HHH HHHHHHEHHHHHHHHHHHHHHHEHHHHHHHHHHHHHHHHHHEHEHHHHHHHHHE HE 
1290CHe## READ IN MU/MES FILE FILLING MACMD, MUST, BASET,NAIRT, IFHT, ITAB, 
1300C:HH# & LOCMDS ARRAYS. 

{310CHHHE TTAB ARRAY CONTAINS COUNT OF MIDS‘S IN EACH MD 

1320C###4# LOCMDS ARRAY CONTAINS INDEX OF FIRST ENTRY FOR EACH MDS IN 
1330CHHet BASET,ETC. ARRAYS. 

1340C-HHHE BASET ARRAY CONTAINS THE BASES THAT USE THE MDS’S 

{350C-HHE# NAIRT ARRAY CONTAINS THE # A/C AT THESE BASES. 

13450CHHHt IFHT ARRAY CONTAINS THE FLYING HOURS (100S/QUARTER) FOR EACH MDS 
1370C#HHH AT THE BASES. 

13B0C:HHH FOR EXAMPLE BASET(LOCMDS(7)) THRU BASET(LOCMDS(S)~1) CONTAIN 
1390C HHH THE BASES THAT USE MDST(7), WHILE THE CORRESPONDING 

1400C HHHt ELEMENTS OF NAIRT & IFHT CONTAIN THE # A/C & FLYING HOURS FOR 
L410CHHH THAT MDS AT THOSE BASES RESPECTIVELY. 

1420 C1=0. S#AL0G(4. 283185307) 

1430 C2=1./12. 

1449 XLAMB=0. 00001 

1450 INDXDBOG=2000 

1460 READ (4) IDECIDE 

1470 PRINT," IDECIDE=", [DECIDE 

1480 WRITE( 1) IDECIDE 


1490C#+## READ IN PD FILE 


1500 
1510 
1520 
1525 
1530 
1540 
{30 


1=0 
10 I=f+1 

READ(5, 1,END=40)MD, MDS. BASET(1)»NAIRT(1), IFHT(1) sNATRAFT (1) 
{1 FORMAT(V) 


PRINT," FILE-S ".MD," ", MDS, BASET(T) NAIRT(I)+ IFHT(1) NATRAFT(I) 


IF(I-1)230, 
IF(MOS. £8. MOST (NUMMDS) )GO TO 10 


1560C:HHH NEW MDS LOGIC 


1570 
1580 
1590 
1600 
1610 
1620 


NUMMDS=NUMMDS + { 

MOST (NUMMDS ) =MDS 

LOCMDS (NUMMDS)=1 

TF (MD, NE. MACMD(NUPMD) )GO TO 20 
TTAB (NUM )=ITAB( NUMMB ) +1 

GO TO 10 


1630CHHHt NEW MD LOGIC 


1640 
1650 
1640 
1870 


20 NUMPD=NUMMD+ 1 
MACMD ( NUMED ) =D 
TTAB(NUMMD)=1 
GO 10 10 


L6S0CHHH FIRST MD & MDS LOGIC 


1690 
1700 
1710 
1720 
1730 


1740 
1730 
1760Ceee# FINISHED 


1770 
1780 
1790 


30 MDST(1)=DS 
NUMMDS=1 
LOCNDS(1)=1 
NUNAD=1 
NACMD( 1) =MD 
ITAB(1)=1 
GO TO 10 


40 LOCMDS( NUMMDS+1 )=1 
ILAST=I-1 
PRINT, © MACMD, MDST,LOCMDS, BASET, NAIRT,»& IFHT ARRAYS" 
PRINT 50> (MACMD( I), T=1,NUMMD) 
SO FORMAT(12(1X,A4)) 
PRINT 60, (MDST(T), [=1, NUMMDS) 
60 FORMAT (6A18) 
PRINT 70, (LOCMDS( 1), [=1,NUMMDS) 
70 FORMAT (SX»4(18s 10X)) 
80 FORMAT (2015) 
PRINT 80, (NAIRT(E), I=1, ILAST) 
PRINT 80, (IFHT{1), I=1, {LAST) 
WRITE (1 NUMMDS, ILAST 
WRITE(1) (MDST( 1), 1=1,NUMMDS) 
WRITE(1) (LOCMDS (1), 1=1,NUMMDS+1) 
WRITE(1) (BASET(I), I=1, ILAST) 
WRITE(1)(IFHT(1), [=1, ILAST) 


1.99, 00 HHHHHHHHE HEHEHE HEHEHE HEHEHE HEHEHE HEHE 
1990 CHHHHHHHHHHHHEHHHHEHHHE HEHEHE HEHEHE HHHHHEHEHEHHHEHHHE HEE 
2000C#### BEGIN NEW COMPONENT -—- INITIALIZE VARIABLES 


2010 200 DO 210 [=1,NUMMBS 

2020 QPAT(1)=0 

2030 «210 FAPT(I)=0. 

2040 NATCH=. FALSE. 

20% IHIT=0 

2060CiHHHE READ VSL TAPE 

2070 REAB( 11, END=999 KEY, KTYPE, IBP, SMC, ALC, NSNVSL, MDI, COST, 
2080% RCOST, MSERV: MTOC, IDUIN: IONOR, TRBY, JBOFM, JDOFM, OVHTB» 
2090 QSLB, IADBY, XNUBY» MAPBY, BREPB, DREPB, NEGLV, 15, IRZ,OSTRQ, i 
21008 DRCRQ, BRCRG, AJRCT, DRCRR ABCON, ADCON, ADCOR, USERS, DRT IME, 

2110& IEC, PLTT. NPSL BNRTS, MMRMR, MWRMA, IPSC, MAXREP, BRT, OST, CHK» TASSE 

2120 DEBUG=(NSNVSL. GT. °5826003000". AND. NSNVSL. LT. "5826005000") 

21% & GR. NSNVSL. GT. "99999" 

2140 TARGET=TASSE+. 5 

2150 IPSEL=IPSC/100 

2160 YSLONT=VSLCNT+ 1 

2170 TF (MOD(VSLCNT; 1000). £@. O)WRITE(7, 220) VSLCNT 

2180 220 FORMAT(" NO. OF VSL NSNS PRUCESSED=", 16) 

2190 GO TO 250 

2200CiHHt READ APPLICATION TAPE 

2210 230 REAB( 12, END=294) APPNSN, NMDSAS, NNHAS, LEVEL 

2220 IF{ DEBUG) PRINT, APPNSN, NHDSAS, NNHAS, LEVEL 

2230 APPCNT=APPCNT +1 

2740C#### TEST FOR NSN MATCH 

2250 250 IF(NSNVSL.LT.APPNSN)GO TO 295 

2740 IF (NSNVSL. GT. APPNSN)GO TO 290 

2270C:HHt NSN’S MATCH, READ MDS DATA. 

7730 IF (NMDSAS) » 292; 

2290 255 READ(12)MDSA, GPA, FAP 

2300 IF(DEBUG)PRINT,“ MDSA=", DSA," QPA=",QPA," FAP=",FAP 

2319 IF (QPA.LE.0.0R.FAP.LE.(. G0 TO 270 

2320 DO 260 1=1,NUMMDS 

2330 260 IF(MDSA.EQ.MDST(I))G0 TO 265 
2240 NBADAPPS=NBADAPPS + 1 
2450 GO TO 270 
2360 265 QPAT(1)=QPA 

2370 FAPT(1)=FAP 

2390 THIT=IHIT+1 

2390 IXMDS(IHIT)=1 


2430 IF (-NMDSAS) 255; » 

2440C#4### READ NHA DATA (THERE SHOULDN’T BE ANY) 

2450 IF (NNHAS) » 230, 

2460 PRINT," <#><#> NNHAS=",NNHAS,” FOR ", APPNSN 
2470 DO 272 [=1,NNHAS 


2480 READ( 12) 

2490 272 CONTINE 
2500 GO TO 230 
2510¢ 


2520CHHH «TEST FOR DUMMY 
2830 290 NISAPP=APPNSN 


Z540C<#><4#> NO DUMMIES IF(NISAPP.EQ.NSNVSL)GO TO 299 
2550C 

2550C-HHHE NOT A DUMMY FINISH READING APP THEN GO T0 230 
2570 IF(NADSAS), 292, 

28380 «291 READ(12) 

BW NMDSAS=NMDSAS-1 

2600 IF (-NADSAS)Z91,, 

2610 292 IF(NNHAS), 230, 

2620 [0 293 I=1,NNHAS 

2630 READ (12) 

2640 293 CONTINUE 

2650 @ TO 230 

26500 

2670CHHH END LOGIC 

2680 294 APPNSN©"77277" 

2690 NNHAS=0 

2700 NMDSAS=0 

2710 PRINT, * EQF APP. FILE" 

2720C 

2730C#HH IF NO VALID APPLICATIONS WERE FOUND SKIP COMPONENT. 
2740 295 IF(.NOT.MATCH)GO TO 200 

27) TF(DEBUG)PRINT,“ IXMDS *, (IXMDS(I),1=1, IHIT) 

2760 GO TO 430 

2770C 

2780C 

27900 

2000 HHHHHHHHEHHHHEHHHHHHHEEHHEHHHHHHHHHHHHHHEHHHHHHEHHHHHHHHEHHHHHHHHE 
281 O(CJHHHHHHHHHHHHHEHHHHHHHEHHHHHHHHHHHHHHHHHHHHHHHHEHHEH HE HEE HE 
2820C+HHHt REGULAR COMPONENT. FULL PROCESSING. BEGIN BY READING SHOP DATA. 
2830 400 READ( 4, END=432)NSNSHOP, FOURWRDS, TARG. TWOWRDS, TSRUEBO 
2840 IF (DEBUG)PRINT," NSNSHOP, TARG=",NSNSHOP, TARG 

2850 430 IF(NSNSHOP. LT. NSNOUT)GO TO 400 

2860 IF (NSNSHOP. GT. NSNOUT)GO TO 434 

2870 IF (TARG.LT. TARGET) PRINT,” TARG TOO SMALL ",NSNSHOP 
2880 TARGET=TARG 

2890 GO TO 400 

7900C 

2910 432 NSNSHOP="99999° 

2920 PRINT," EOF SHOP FILE" 

2930 434 NPROCESS=NPROCESS+1 

2940 S=TARGET 

2950C 

2.9003 HHHHHHHHHHNHH HHH HEHEHE 
2970C#### COMPUTE BASE PRORATING FACTORS & NBASES 

29730 +800 DO 615 1,257 

2790 BSHARE (J) =0, 

300) 615 CONTINUE 

3010C#HH IF IPSEL.GE.2 GO TO RIP PROCESSING 

WHC 

3040C 

SOSOCHHH FILL BSHARE & BMDSHARE BY TI (COMPUTE RIP FOR COMPHDR) 
360 TI=0. 


RIP=0. 
NBMDSS=0 


DO 630 [=1,IHIT 

3110 IMDS=IXMDS(1) 

3120 FACT=QPAT (IMDS) #F APT ( IMDS) 
IF (FACT) +630, | 


DO 520 K=LOCMDS( IMDS) LOCMDS( IMDS+1)-1 
3140 JPBASET(K) 


3170 TIT=FACT #NAIRT(K) 
3130 TIsTI4TIT 

3190 RIPERIP+FACT#HIFHT(K) 

3200 BSHARE ( J) =BSHARE (J) 4TIT 

3200 = « ——= AT THIS PIONT BSHARE(J)) 1S ACCUMULATING THE TI AT BASE J+ 

3220 IF(NAIRAFT(K).LE.0)G0 TO 620 

3230 NBMDGS=NBMDSS+{ 

3240 UFORBMDS (NBMDSS) =J 

3250 MFOREMDS (NBMDSS) = IMDS 
3260 BMDGHARE (NBMDSS)=FACT#NAIRAFT (K) | 
3270 620 CONTINUE | 
3280 

3290 630 CONTINUE 

3300C 

3310 TF(NBMDSS. GT. MAXBMDSS) MAXENDSS=NBMDSS 


BW20C H+ NOW COMPUTE NBASES, DIVIDE BSHARE BY TI TO GIVE PRORATING 
SS 40CHHHE FACTORS. ALSO PACK BSHARE ARRAY SQ THAT BSHARE(J) IS THE 
S340CHHEE PRORATING FACTOR FOR THE (IXBASE(J)~1)°TH BASE. 


IF(BSHARE(J)), 640, 


3390 KBASES=KBASES +1 
3410 UXBASE(KBASES }=J 


3420 640 CONTINUE 


DO 645 IBMDS=1,NBMDSS 
3450 BMDSHARE ( IBMDS )=BMDSHARE ( IBMDS) /TI 
3460 645 CONTINUE 
3470 GO T0 675 


340 BCHARE (BASES =BSHARE(J)/TI 


3480 
34900 
S500 
3510C#### FILL BSHARE & BNDSHARE BY RIP 
3520 650 RIP=0. 
o) 340 NBMDSS=0 
3840C 
350 00 670 [=1,THIT 
3560 IMDS=1XMDS (1) 
3970 FACT=QPAT( IMDS) #FAPT ( IMDS) 
: 3580 IF(FACT) 1670, 


S59OC 


3600 DO 660 K=LOCMDS( IMDS), LOCMDS( IMDS+1)-1 

3610 JEBASET(K) 

3620 RIPT=FACT#IFHT (K) 

330 RIP=RIP+RIPT 

3640 BSHARE ( J) =BSHARE (J) +RIPT 

3650C --—- AT THIS PIONT BSHARE(.!) IS ACCUMULATING THE RIP AT BASE J-1 
3660 IF (NAIRAFT(K).£0.0)60 TO 660 

3670 NBMDSS=NBMDSS+1 

3680 LFORBADS (NBMDSS )=J 

3490 MFORBMDS (NBMDSS )=IMDS 

3700 BMDSHARE (NBMISS )=RIPT#NAIRAFT (K) /NAIRT (K) 
3710 660 = CONTINUE 

37200 

3730 670 CONTINUE 

3740C 

3750 IF (NBMDSS. GT. MAXBMDSS ) MAXBMDSS=NBMDSS 

3760CHHH NOW COMPUTE KBASES, DIVIDE BSHARE BY RIP TO GIVE PRORATING 
3770CHHH FACTORS. ALSO PACK BSHARE ARRAY SO THAT BSHARE(J) IS THE 
S780CHHE PRORATING FACTOR FOR THE (IXBASE(J)-1)°TH BASE. 
3790 KBASES=1 

3300C 

381) DO 672 2,257 

3820 TF (BSHARE(J))»472, 

380 KBASES=BASES+1 

3240 BSHARE (KBASES ) =BSHARE (.!) /RIP 

3850 IXBASE (KBASES)=J 

3860 672 CONTINUE 

3870C 

3880 DO 673 IBMDS=1. NBMDSS 

3890 BMDSHARE { IBNDS)=BMDSHARE { IBMDS) /RIP 

3900 673 CONTINUE 

S910 

39°20 HHH HHH HEHEHE HHH HHH HHH HEHEHE 
3930C HH## NOW SORT BSHARE & IXBASE BY BSHARE 

3940C#### THIS IS A BUBBLE SORT FOR BSHARE(2) THRU RBSHARE(KBASES). 
S950CHH## IT 1S SPEED OPTIMIZED. THE OUTER LOOP INDEX iS LIM. 
3960CHHE# THE LAST COMPARISON IN THE INNER LOOP IS BETWEEN 
3970CHHH BSHARE(LIM-{) & BSHARE{LIN) 

3990 675 IF(DEBUG)PRINT 677, (BSHARE( 1), 1=1,KBASES) 

3990 677 FORMAT(IX, 10F 11.8) 

4000 IF {KBASES~3)683; » 

4010 LIM=KBASES 

4020 679 2 

4030 K=3 

4040 680 IF(BSHARE(K)-BSHARE(J))682,, 

4OS0CHH SWITCH K’TH & J’TH 

4060 HOLD=BSHARE (J) 

4070 BSHARE ( J)=BSHARE (K) 

4080 BSHARE (K)=HOLD 

4090 THOLD=1XBASE< J) 

4100 TXBASE {J}=1XBASE (K) 

4110 IXBASE (K)=THOLD 

4120 682 1 


4130 K=K+1 
$140 IF(U-LIN) 680; » 

4150 LIMELIN-1 

4160 IF (2-L1M)679: > 

4170 683 NBASES=KBASES-1 

4439 IF{DEBUG)PRINT 577, (BSHARE(1),J=1,KBASES) 

4190C 

42000 HHH HHH HHH HEHEHE abs 
4210C#e## READ SRU FILE & COMPUTE SRUEBO. 

4220C<#> PRORATE TSRUEBO TO GIVE SRUEBO’S 

4230 DO 700 J=2,KBASES 


4240 SRUEBO( J)=TSRUEBO#BSHARE { J) 
4250 700 CONTINUE 

4260C 

42700 


$280 CHEB HHH HHH HHH HHH HEHEHE HHHBHHHE 
4290C-HH+# COMPUTE DAILY DEMAND RATE(DDR).OIMRTO, ETC. 

4300 715 RDDR=0. 

4310 DONR=0. 

4320 IF (BRT. GE. 0. 0001 ) BDDR=BRCRB/BRT 

4330 IF(OST.GE.0. 000! )DDDR=(STRG/ OST 

4340 IF (-DDDR)716, » 

4350 IF(PLTT. GE.0. 0001) DDDR=( ABCON+ADCON) #0. 03333/PLTT 

4340 IF (DRT IME. GE. 0. 0001 ) DDDR=DDDR+DRCR@/ DRT IME 

4370 716 DDR=BDDR+DDDR 

43:30 DPIPE=DRCRQ+DRCRR+AURCT tADCOR +ADCON+ABCON 

4390 BANDO=BRCRO+0S TRO 

4400 TPIPE=BANDO+DP IPE 

4410 IF(DEBUG)PRINT," BANDO, DPIPE=",BANDO," *,DPIPE 

4420 OIMRTO=1. 

4430 IF(DPIPE.LE.0. )G0 TO 57 

4440 IF{PLTT.LE.0.)60 TO 53 

4450 IF (DRTIME.LE.0. 160 TO 55 

4460 CIMNUM (ABCONtADCON) / (30. #PLTT) +DRCR@/DRT IME 

4470 OIMDENOM= ( ABCON+ADCON+AURCT+ADCOR ) / (30. #PLTT) +( DRORG+DRCRR } / DRT IME 
44g) OIMRTO=0 MNUM/OIMDENOM 

4490 10 57 

4500 53 OIMRTO=DRCRO/( DRCRQ+DRCRR) 

410 @ 10 37 

4320 3 OTMRTO=( ABCON+ADCON) / (ABCON+ADCON+AJRCT +ADCOR) 

4530C#H# COMPUTE COMPHDR BASED ON FLYING HOURS. COMPHDR=DEMANDS/FLHR 
4540 57 COMPHDR=DDR/{1. 09S#RIP) 

4550C 

45.600 HHHHHHHHHHIHHHHHHHBEHH HHH HEHEHE 
4570C#### BEGIN ACTUAL ALLOCATION OF ASSETS. 

4580CHHH# FIRST HANDLE THE SIMPLE CASES. 

4590C+### IF ASSETS.GE.0 GO TO CHECK FOR EXCESSIVE ASSETS, ELSE SKIP ALLOC. 
4600 IF (-TARGET)7195» 

4610 OIMPIPE=DRCRO+ABCON+ADCON+ BANDO 

4£20 PIPMIN( 1 =DPIPE 

4830 BEBOMIN( 1)=DPIPE 

4640 NLRMIN(1)=0 
IF(NBASES) 5 960, 


DO 717 J=2+KBASES 


4670 PIPHIN( J)=O1MPIPEXBSHARE ( J)+SRUEBO( J) 
4680 BEBOMIN( J)=PIPMIN( J) 
46590 NLRMIN(J)=0 


4700 717 CONTINUE 

4710 GO TC 960 

47200 Hee CHECK FOR ASSETS GREAT ENOUGH TQ MAKE ALLOCATION SIMPLE. 
4730-719 T=DPIPE+5. #SORT(DPIPE)+.5 

4740 DO 720 =2,KBASES 

470 PU=BSHARE (J) #BANDO+SRUEBO( J) 

4760 T=T+P 5. #SORT(PU)+.5 

4770 720 CONTIME 

4780 IF(DEBUG)PRINT,* 1, TARGET= “> T." “y TARGET 

4790 IF (TARGET-T)800, » 

4800 C]HHAHHHHHEHHHHHHHHHHHH HHH HHHHEHHHHHHHHAHHHEHEE 
4810CHHE SIMPLE ALLOCATION. DUMP ASSETS IN GROSS QUANTITIES. 
4820 NSIMPLE=NSIMPLE+1 

4830 IF (BANDO-1E-10)770,, 

4840 IF(ADCOR+AURCT+DRCRR. LE. 1E-10. AND. KBASES.EQ.2)G0 TO 780 
4Q50C HHH REGULAR SIMPLE CASE. DISTRIBUTE ASSETS USING ESTIMATES. 
4360 NLRMIN( 1 )=DPIPE+5. #SQRT(DPIPE) +. 5 

4870 NLEFT=TARGET-NLRMIN( 1) 

4875 BEBOMIN( 1)=0, 

4830 DO 730 J=2,KBASES 


4890 BEBOMIN( J)=0. 

4900 PUPBSHARE { J) #BANDO+SRUEBO( J) 
4910 PIPMIN( J)=PJ 

4920 NERMIN(J)=PU45, #SQRT (Pd) +.5 
4930 NLEFT=NLEFT-NURMIN( J) 


4940 730 CONTINUE 
A5S0CHH## ALLOCATE REMAINING COMPONENTS. 

4910 SYSEBO=0. 

4970 TF (NLEFT)» 60, 

4980 NEACHENLEFT/NBASES 

4990 IF (NEACH) » 750, 

5000 DO 740 J=2,KBASES 

3010 NLRMIN( J) =NURMIN( J) +NEACH 

5020 740 CONTINUE 

0H NLEF T=NLEF T-NEACH#NBASES 

5040 IF (NLEFT)» 960, 

5050 750 DO 760 J=2,MEFT+I 

3060 NURMIN(J)=NLRAING J) +! 

5070 760 CONTINUE 

3080 GO TO 960 

5070C#### SIMPLE DEPOT ONLY CASE. DUMP ASSETS TO DEPOT. 
3100 770 NSIMPDEP=NSIMPDEP+1 

5110 IF(DEBUG)PRINT,“ SIMPLE DEPOT ONLY CASE" 
5120 NLRMIN( 1)=TARGET 

StH KBASES=1 

5140 NBASES=0 

S150 BEBOMIN( 1)=0. 

S140 EBOMIN=0. 
5170 GO 10 960 


S1S0C#### SIMPLE ONE BASE CASE. PUT ALL ASSETS AT THE BASE. 
SL90 780 NURMIN(1)=0 

5200 IF(DEBUG)PRINT," SIMPLE ONE BASE CASE" 

5210 NURMIN(2)=TARGET 

5220 NSIMPI=NSIMP1+1 

5230 BEBOMIN( 1)=0. 

5240 BEBOMIN(2)=0. 

5250 EBOMIN=O 

5260 GQ TO 960 

5.7700 HHHHHHHHHHEHH HEHEHE HEE 
S280CHHHt NOT SIMPLE. COMPUTE MISCELLANEOUS QUANTITIES FOR MA. 
5290 300 CUTOFF=AMINE (0. 1, XLAMBECOST) 

S300CHH CHECK FOR ONE BASE CASE. 

3310 IF (BANDO. GE.0.00001. AND. (NBASES, GE. 2. OR. GIMRTO. LE. 
3820 £0.99999) )G0 TO 950 

SS30CHHH# ONE BASE CASE. COMPUTE EBO. 

5340 NIBASE=N1 BASE+1 

53) SYSEBO=TP IPE 

3340 TRNLOG=-TPIPE 

5370 I=0 

SOB0CHHH CHECK FOR BIG PIPELINE 

330 IF (TPIPE~88. )9201» 

S400CHHH BIG TPIPE LOGIC. USES STERLINGS FORMULA. 

5410 I=TPIPE-6. #SQRT{TPIPE) 

3420 QUANT=I 

3430 TRMLOG=QUANT +02/ { 30. OS QUANT GUANT QUANT) -C:1-02/ QUANT 
3440 £-ALOG( QUANT }# (QUANT+0. 5) +QUANT#ALOG( TPIPE)-TPIPE 
3450 SYSEBO=SYSEBO-] 

5460 920 TRMEEXP( TRALOG) 

3470 CTL=1.~-TRM 

5480 DO 930 [=[+1, TARGET 


3490 SVSEBO=SYSEBO-CTL 

S500 TRA TRE ATP IPE/I 

3510 CTL=CTL-TRM 

5520C === CTL IS THE ERO REDUCTION FOR THE I+1’TH SPARE. 


5530 930 CONTINUE 
3540 IF (OIMRTQ-.5)940;, 

SSWUCHHHE ONE BASE CASE REALLY WAS A BASE. 

JAD IF{DEBUG)PRINT," ONE BASE CASE" 

3570 NBASES=1 

3580 KBASES=2 

S290 NURMIN(2) =TARGET 

3600 BEBOMIN(2)=SYSEBO 

9610 COTAIL(2)=CTL 

36:0 TERM(2)=TRM 

5630 PIPMIN(2)=TPIPE 

5640 EBOMIN=SYSEBO 

560 GO TO 960 

SO6UCHHH ONE BASE CASE WAS REALLY A DEPOT ONLY CASE. 
5670 940 NBASES=0 

3680 KRASES=i 

36°) IF (DEBUG) PRINT,” DEPOT ONLY CASE" 

5700 NLRMIN( 1) =TARGET 


5710 BEBOMIN( 1 )=SYSEBO 
3720 TERM( 1)=TRM 
S740 PIPMIN( 1 )=TPIPE 
$740 EBOMIN=SYSEBO 
750 G TO 960 
5750C#4## NON ONE BASE. ALLOCATE ASSETS MARGINALLY TO DEPOT AND BASES, 
5770 950 IF(DEBUG)PRINT,” CALLING FDEHO FROM HIDMM" 

3780 CALL FDEBO 

5790 IF (DEBUG) PRINT, LUMPD," ", (DEBO( 1), 1=1,DEBGCNT) 

5800 IF (DEBUG)PRINT 955,KEY,KTYPE, IBP, SMC, ALC, NSNVSL» MDI, COST, 

5810 &RCOST, MSERV, MTOC, IDUIN, IONOR, TREY, OVHTB, OSLB, IADBY, XNUBY» 

3820 SMAPBY, BREPB, DREPB, NEGLYV, [5, IRZ, OSTRO, DRCRQ, BRCRG, DRCRR» 

5830 SABCON, ADCON, ADCOR, AJRCT, NBASES, OST, DRTINE, BRT, IEC, PLTT, NPSL, BNRTS; 
3840 {RMR MWRMA, IPSC, MAXREP, TASSE, TARGET 

5850 955 FORMAT(" KEY=",12," KTYPE=",11," IBP=",A2," =".A4, 

5340 &* ALC=",A2," NSN=",AI5," MDI=",A3," COST=",F10,2,/, 

56-0 &" RCOST=",F10.2," MSERV=",14," MTOC=",16," IDUIN=", 16, 
3880 &" TONOR=",16," TRBY=",F9.2," OGVHT=",F9,2," OSLBA=",F 11.4, 
5890 &/," IJADBY=",16," XNJBY=",F9.2," MAPBY=",F7.0," BREPB=",F9.2, 
590) &" DREPB=",F9.2," NEGLV=",14," 15=",15," IRZ=",115/) 

5910 &") “OSTRO=",F11.4," DRCRQ=",F11.4," BRCRQ=",F 11.4," DRCRR=", 
5920 MF11.4,/," ABCON=",F11.4," ADCON=",F11.4," ADCOR=",FL1.4,/, 
5930 &" AURCT=",F11.4," NBASES=",13," OST="5F3.0." DRTIME="1F7.0, 
5944 &”) BRT=",F3.0," IEC=",A2," PLTT=",F7.4)" ="V17s/5 

59) &° BNRTS="5F4.2," MWRMR=",16," MARMA=", 16," IPSC=",14, 

5960 &" MAXREP=",18." TASSE=",F9.0," TARGET=",17) 

5970 NPICED=NPICED+ 1 

5980 CALL PICND 

5970 IF (DEBUG)FRINT," BACK TO HITOM" 

6:00 

6010C 

60200 

60300 SHIEH HHH HHHHHHHHHIHHEHHHHHHEHHHEHEHEEHEHEHHEEEHHEHEIHEHEE 
(01 OC JHHHHHHHHHHHHHHBHHTHHEHHHHHHHHHHHHHEHHHHHHHHEEHE THEE HEHEHE 
6050CHHH COMPUTE REPRATE THEN WRITE OUTPUT 

4060 960 REPRATE=0 

6070 IF (NBASES ) 962; 

8080 OT MRESUP=0 

6070 DO 961 J=2,KBASES 

6100 OIMRESUP=0IMRESUP+P IPMIN( J) 

6110 961 CONTINUE 

6120 TF (QIMRESUP ) 962, 

6130 REPRATE=0DR/ (24. #0 IMRESUP) 

5140 «6962 WRITE(1)NSNOUT, BEBOMIN( 1), OIMRTG, OSTR@, IPSEL, RIP, COMPHDR, DRT IME 
6150 &, OST, BRT. IHIT, NBASES, IEC, COST. REPRATE, BRCRQ, {IDR NBMBSS, ORCRA 
$1860 DO 963 I=1,IHIT 

$170 IMDS=1XMDS( 1) 

$180 WRITE( 1) IMDS, QPAT(CINDS), FAPT( MDS) 

6190 963 CONTINUE 

6200 IF (NBASES),970, 

62he BO 965 1=2,KBASES 

622 WRITE (1) EXBASE (1), PIPMIN( 1: NURMIN(T),BEBOMIN( 1), BSHARE(T) 
965 CONTINUE 


6240 970 IF(DEBUG)PRINT," QIMRTO, EBOMIN, BEBOMIN, PIPMIN NURMIN" 
6250 &, OIMRTO," “» EBOMIN 

6260 IF(DEBUG)PRINT 980, (BEBOMIN( I), [=1,KBASES) 

$270 IF( DEBUG) PRINT 980, (PIPMIN(1), 1=1,KBASES) 

6280 980 FORMAT(7(" "5F10,3)) 

$290 IF (DEBUG)PRINT 990, (NLRMIN(1), I=1,KBASES) 

6300 990 FORMAT(" ",2015) 

O310C#HeHHt WRITE BMDS DATA 

$320 IF (NBNDSS) 5200. 

6320 DO 985 IBMDS=1,NBMDSS 

$349 WRITE (1) UFORBMDS( [BMDS). MFORBMDS( IBMDS) , BMDSHARE ( IBMDS) 
6350 985 CONTINUE 

6360 @ TO 200 


S390C 
64,00: CUHHHHHHHEHHHHHIHHEMHHEHHHHHHHHHHHHHHHHHHHHHHHHHEEHEHHHHHHHHEHEHHEH EE 
64.1 OCJHMHHHHEHHEHHHHH HHH HHH HE HEHEHE 
bA20CHHH- WRAPUP -- WRITE FINAL REPORTS TO 7. 

6420 999 WRITE(7, 1000) VSLCNT, APPCNT NUMMDS, NSIMPLE 

5440 1000 FORMAT(0’,’ NO. OF VSL READS=",16,° NO. OF APP READS=’, 
64508 16, NQ. OF MIG READS=",16,° NO. OF NSNS WITH SIMPLE DIST=’, 14) 
$460 WRITE(7,1910)NBADAPPS, NI BASE, NPROCESS 

6470 1010 FORMAT(” NBADAPPS, NIBASE, NPROCESS=", 317) 

6480 WRITE(7, 1020) SRUCNT > NDUMAY, NPICED 

64°0 1020 FORMAT("” SRUCNT=",19," NDUMMY=",[5," NPICED=", 18) 

6500 WRITE(7,1030)NSIMPDEP, NSIMP 1, MAXBMDSS 

6510 1030 FORMAT(" NSIMPDEP, NSIMP1, MAXBMDSS=", 316) 

6520 WRITE(7, 1040) MXNUMDEP, MX TOTDEP 

6530 1040 FORMAT(“ MXNUMDEP, MXTOTDEP=", 217) 

6540 STOP 

6550 END 


SYSTEM LIST LAGIA/STARS/SOQURCE/DM/HDRO1 


990C #* 4 LAGIA/STARS/SOURCE/DM/HDRO! 2/6/81 BY FMS 


1190 
1200 
1205 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1349 
1350 
1340 
1370 


REAL BEBOMIN( 254), PIPE(256) >» BSHARE (256) » FAPT (150), LAMBDA 
INTEGER [XBASE( 256) NLRMIN( 256), QPAT (150), IXMDS( 150) 
CHARACTER NSNOUT#15, NSNO1#15// 000000’ /, NOUNH1@ 
CHARACTER MDST#19(150) 
INTEGER LOCMDS( 150), BASET (600), IFHT (600) 
LOGICAL MATCH 
REWIND 2 
READ(2) IDECIDE 
READ(2)NUNMDS» ILAST 
READ(2) (MDST(1)> 1=1, NUMMDS) 
READ( 2) (LOCMDS (1), [=1, NUMMDS+1) 
READ( 2) (BASET(I), 1=1, ILAST) 
READ( 2) (IFHT(1)» I=1, ILAST) 
WRITE (3) IDECILE 
WRITE (3)NUMMDS» ILAST 
WRITE(2) (MDST (1). 1=1, NUMMDS) 
WRITE(3) (LOCMDS( 1), T=1,NUMMDS+1 ) 
WRITE(3) (BASET(T), [=1, ILAST) 
WRITE(3)(IFHT (1), 1=1, ILAST) 
100 READ(2,END=999 ) NSNQUT, DERO, OIMRTC, OSTRA, [PSEL» RIP» COMPHOR 


& DRTIME, OST, BRT» IHIT, NBASES, TEC, COST, REPRATE BRCRQ, DDR, NBMDSS 


&, DRORG 

MATCH=. FALSE. 

NREAD=NREAD? 1 

DG 150 J=t,THIT 

READ( 2) 1XMBS( 1) QPAT(I) FAPT(I) 

150 CONTINUE 
IF (NBASES)» 350; 

DO 20) I=1,NBASES 

200 READ(2) IXBASE(1),PIPE(1)»sNLRMIN( 1), BEBOMIN( I)» BSHARE (1) 
GQ 10 380 

250 READ(01,300, END=450)NSNO1, NOUN, LAMBDA 

300 FORMAT (4X5 A15,A10,56X,F5. 4) 

350 IF (NSNOUT.LT.NSNO!)G0 TO 500 
TF(NSNOL.LT.NSNOLIT)G0 TO 250 
NMATCH=NMATCH+ 1 
MATCH=, TRUE. 

COMPHDR=LAMBLIA#. 01 
Gt TO 250 


1380 450 NSNO1=°777777’ 
1390C-———— CHECK FOR MATCH & NON FLYING HOUR PROGRAM. 
1400 500 IF(.NOT.MATCH) 50 TQ 530 


1410 


IF(IPSEL.LE.1)60 TO 540 


. 1420C-——-- MATCH=. TRUE. BUT NOT FLYING HOUR PROG. 


1430 
1440 
1450 
1460 


COMPHDR=0. 
REPRATE=0. 
PRINT," "NOUN," '.NSNOUT," IPSEL=", IPSEL 
OO TO 349 


1470C-——- NOT MATCH 


1480 530 PRINT,* “,NSNOUT," NOT MATCHED COMPHDR, IPSEL=".COMPHDR, IPSEL 
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AD=A110 900 


UNCLASSIFIED 


LOGISTICS MANAGEMENT INST WASHINGTON OC F/G 15/8 
THE SORTIE=GENERATION MODEL SYSTEM. VOLUME VI. SPARES SUBSYSTEM==ETC(U) 
SEP 61 J B ABELL» F M SLAY MDA903~81-C=0166 
LMI=ML102=-VOL=6 


149 


IF(IPSEL.LE. 1)60 TO 540 


1500C-——— NOT FLYING HOURS EITHER 


1310 
1520 
1530 
1540 


COMPHDR=0. 
REPRATE=0. 
540 WRITE(3)NSNOUT, DEBO, OIMRTO, CSTRO, IPSEL, RIP» COMPHDR 
&, DRTIME, OST, BRT, JHIT, NBASES, IEC, COST, REPRATE: BRCRG: DDR: NBMDSS 
& DRCRQ 
DO SO [=1, HIT 
WRITE(3) TXMBS( 1) QPAT(I) FAPTIT) 
300 CONTINUE 
IF(NBASES) 1610» 
DO 600 I=1,NBASES 
600 WRITE(3) IXBASE(1)»PIPE(1)»/NURMIN( 1)» BEBOMIN( I), BGHARE(1) 
$10 IF(NBMDSS)» 100, 
DO 620 I[=1,NBMBSS 
READ(2) Jo MS 
WRITE(3) JMS 
620 CONTINUE 
60 TO 100 
999 PRINT,” NREAD, NMATCH=", NREAD, NMATCH 
STOP 
END 
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APPENDIX F 


SAMPLE OF OUTPUT FROM THE 


DISTRIBUTION MODEL 


SSSSSSSSSSSSSSSSSSSSKHSSSSSSHSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
SSSSSSSSSHSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSHSSSSSSSSSSSSSSSSSSSSSSSSSSESTSSSSSSSSESS 


S$S3S3S5 $ $$ss $$$s s $ 
$ $ $ 3 $s $ s 
$ Ssss $ $$$ $s $ 
s s s $$$ $ $ $ 
$ $ $ $ $ $ 3 s 
$ 5558S S$$33$ $3$$ $$ss 


SSSSSSSSHSSSSSSSSESSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSESSSSSSSESSSSSSSSSSSSSSSSSS 
SSSESSSSESSSSSSSSESSESSSSSSSSLESSSSSSSSSSSSSSSSSSSSSESSSSSSSSSSSSSSSSSSSSSSSSSSESS 


00a § IOENT NS2911N2320 ,OS2@9uSLAY 0110 
SSSSSESSSSSSHFSSSSSSSSSSSSSSSSSSSSSSSESSSSSSSSSSSSSSSSSSSSSSSESSSSSSSSSSSSSSSSSSSSSS 
SSSSSSESESSSSSSSSSSSSSESSSSSSSSSSSSSSSSSSSSSSSSSHSSSSSSSSSSSSSSESSSSSSSSSSSSESSSSS 

$$sS $3ss $$S$ $S$3$$ $ $ ssss $ s$ 

$s $s 8 8 s $ $ $s $ $ $s s § 

s ¢5 SS$$ $s $ $s $ $ Ssss $s $ $ 

ss 8$ s sss $sss $s $ s $S3$333 

$s $s $ $ s $ $ $ $ $ $ 

ses S$SSS$ SSSsss $ ssss $$S$SS8 Sss$ss $s s 
SSSSSSESSSSSSSSSSSSSSSSSSSSSHESSSSSSSSSSSSSSSESSSSSSSSSESSSSSSSSSSSSSSSSSSSSSSSESSE 
SSHESSSSSHTESSSSSSSSSSSESSSESSSSSSSSSSSHESSSSSSSSSSSSESSSSSSSISSSSSSSSSSSSSSSSSSESS 
$s 7oe3U ENTERED C AT 14,117 FROM TSS/S 0-98-16 
0091 3 SNUMA 7623 
0002 § COMMENT OQS29SLAY TSS CARDIN 
onnoz $$ USERID OS29SLAYSeseaeannas 
9008 § TOENT OS201iNes20 ,OS29USLAY 0110 
9008 § NGTE SOTST RUN FOR ABELL 120 
N09 § vSS1 4, JLGDISTW0S3,082942,090 130 
AUN? § CPTION FORTRAN 00140 
9008 &S SELFCT LAGLA/STARS/OBJECT/OM/RIDMM.O0 00150 
N00 § CAJECT *IOMM REVISED 272/781 FOR OISTRISUTION “ON= ¥13.271082481......90 
O01) 8% SELECT LASLA/STARS/OBJECT/DM/FOEBO.O0 00160 
9012% § CBJECT #2 FNEBO 4/13/79 FOR DISTRIBUTION MOD-METRI Y16.1010U90481FD0E50000 
9014 $$ SELECT LAGBLA/STARS/OBJECT/OM/PICND.O 00170 
N01S5" § Casecr PICND 1/18/79 FOR DISTRIBUTION MOD@METRIC Y16.0530904481PICND000 
9017 AS EXECUTE 000180 
o01a = § LIMITS 199,29K,,19K 00190 
0019 §$ FILE 01,A3CR,600L 200 
0629 38 POMEL 03,R,S/LAGLA/STARS/COMMON/DM/THREESIM 0210 
g0et S$ TAPES 94,0400,,21971,,888 0220 
0022 § ata 0s 230 
daz & REMOTE 07 00250 
9024 § TAPEQ 11,4500,,21185,,882 0260 
9025 §$ TAPES 12,4600,,29987,,348 0270 
0026 § OPTION FORTRAN 00280 
9927 $$ SELECT LA&614/STARS/ORJECT/NM/HOR.O 00290 
a02a* § CAJECT LAGLA/STARS/SOURCE/OM/HORO1 2/6781 BY FM Y13,289082081...64200 
9030 as EXECUTE 000300 
0931 = § LIMITS 99,15K,,1K 00310 
0032 § TAPES 91,4700,,26140,,883 0320 
9032 3 FILE 02,4388 330 
jy034 s TAPES 03, 48CC.4--DISTWOS3eee 03a0 
ors §$ IF ABORT ,LX1L 0 
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FILE*S C1 “C1354 19 
FILE]{$5 C12 «c13sa 20 
FILES CL*S KOLA 23 
FILeeS C12S «C1ISA 34 
FILe“S rss «C1sa 38 
FILe=5 C139 <C13SA 40 
FILEeS Cre «C1384 ax 
FILESS C1ztE «CLEA as 
CILesS CYS KOLA a3 
FILESS CiIS KC13SAa S2 
FILESS C1*S KC13SA4 ss 
FILe\eS Cite «C1754 37 
FILEeSS Sys «Kops Se 
FILeeS Ors «C1354 72 
CILEeS ries «yp 3sa as 
FILES C13 KCL ssa aa 
Frve|\e 3 Tre <cpssa ag 
PILEes crs K«oprea 90 
BrLees Cpe «Cpa 94 
FTLEeS CLS «C1458 96 
ErLges Cy™me KCL Isa 97 
FILES Cizms «KCptsa 100 
FILES Tits KCTISA 115 
FrreeS Cr7s «C13sa 117 
FILEes SPS KCL TSA 118 
<T1753 127 

<c13ga 128 

<c1wsa 130 

<Cptee 135 

<C\ISA 146 

: 27S <Cy sss 159 
FILS SS TFS 60 S8 1690 
FrLe es TLS «ep res 170 
PALS en CL ae cyssr 5 
Friuces cree c1798 {tl 
Pre ses- Cres Cisse 159 
FTL FeS CyYtE o139a4 175 
FILES TLS wC1vIsea =) 
FILSeS Crys eCpzsAr 63 
FreeeS Crs sC13Sn 93 
FrLees C1 Ter IsC 40 
FILESS C17S ECLISC 63 
RTLe@s Cres ECLRse Mit 
FILASS Cits: aC psss 3a 
FILEeS C13IS FRUITS 137 
PILEeS CLS ICP Ts: | 
FILESS H1ts RCLISy 111 
FILE H§ C1s0 C1404 5 
FILE<5S C144 Clava 132 

=. 3 FrcseS Chan N FILE AROOTED -- «cP 
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= 762e3U, ACTIVITY #@ = Q1, REPORT CODE = 06, RECORD COUNT = 000027 


UNDERFLQ 4T LOCATTON 031553 

UNNEQFLO AT LOCATION 033265 

UNNERFLO LOCATION 933265 

UNDERFLO LOICATIGN 933265 

HINNERFLO LOCATION 033265 
ExP UNCERFLO LOCATION 031553 
ExP UNODERFLO LOCATION 931945 
ExP JNDERFLO LUCATTION 031553 
ExP UNDERFLO LOCATION 031553 
FXP NNDERFLG LOCATION 031553 
ExP YNDEQFLO LOCATION 031553 
EXP INOERFLO LOCATION 031553 
EXP UNDERFLO LOCATION 031557 
EP UNDOERFLO LOCATION 031552 
ExP UNDERFLO LOCATION 931553 
EYP UNDERFLO LOCATION 031853 
EXP iINDEQSELO LOCATION 031583 
ExP UNCERFLO LOcatrIoON 031553 
EXP UNDESFLO LOCATION 931553 
ExP UNDERFLO LOCATION 931553 
ExP UNDERFLY GOCATTON 031545 
EXP UNDEQELG LOCATION 931645 
EXP tINDERFLA LOCATION 031582 
EXP WNDOFRELG LOCATION 031553 
EXP UNDEBFLD LOCATION 031553 
EXP UNDERFLO LUCATION 031545 

exTHIS IS THE LAST TIME THE aaCve MESSAGE SILL APOE ARs 


SNUMB 7Teasu, ACTIVITY # = O1, REPORT CODE = 97, RECORD COUNT = 000075 


NO. TF VSL NSNS PROCESSED= 1000 
OMA OF NSNS PRACESSFO= 2000 
MO. TE NSNS PACCESSEC= 00 
49. 0F VSi SSNS SPRACCESSENS good 
NG, QF VSL NSNS PROCESSED= 5000 
NO. OF SSNS PROCESSE = 46000 
NO. TF iL NVSNS PR DCE3S$5EV= 7000 
NO. CF “SNS PONCESSEN= 8000 
WO, JF vSiL “SNS PRFCESSENS 9900 
“0. CF ys NSNS PRECESSFED= 10090 
NO. OF VS NSNS PROCESSED= 11000 
NC. TF 3 NSNS PROCESSEN= 1209000 
NO, OF 4 NSNS PQNCESSEDS 13000 
NO, UF VSL YVSNS PSOCESSED= 14000 
NQ. TF NSNS PRCCESSED= 15090 
NO, SF vel NSNS PROCESSED= 16000 
NO. TF .StL NSNS PROCESSED= 17000 
NO, OF NSNS PROCESSED= 18000 
NO. OF NSNS PROACESSED= 19000 
MOY. 8 NSVS PROCESSEN=S 70090 
SNS PONCESSEDN= 21000 

WO, 3 “Siv§ POCCESSEDS 22000 
“Oo. Z tSNS PSOCESSEN= 227009 
NSNS PROCESSENS 24000 

ne, NSNS PROCESSED= 250900 
NO. K NSNS PRCCESSED= 245000 
NSVS PQANCESSEDS 27000 

NSNS PROLESSFEDS 289000 


£Vb000 = Lud GQandaa fre = 3009 babaga fev = w# ALLALIIV SUECIL = HWEINS 


SEcuUS 2Ue2T Sd3IULOLX WS dSGWANKW 

Gee Ses 026 FSSUWUKVN SO TdWISN Sd S0dHI SN 

99289 ZG43IdN TRS =AWWHUN OeckPOSser=ANINES 

Octet sy 20S2b =SSIIUNIN‘ ASTHIN’SddVUVGN 

PLOD FISH BVAWIS HLEM SNS J TON SL ZSuv3a SUN SU TUNDSEOTS=StVda da¥ 30 “ON bSDbe =S0V3N WA 3U TUN 


OU062 =USISSIIUGd SNSN ISA 4U TUN 
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CT ie GUilauvy IVs NOZ7HO YLLvey 
ovo Nvulond NUL dt s 


“W240 NI GSUN TINE Swras0adds 


NUT2vI07 AYLNI NOLLVYIOT AYLNG NOLLVIO) AMIN] HUTAVIUD AWLNGA NULIVIOT AMINS 41G0W Jivd NIYToU 


Anvd Uk ST be-S0-6U0 20 Meds 


SNUMP s 7he3U, ACTIVITY 2 = 02, REPORT CODE = S52, RECORD COUNT = 900290 


CONTROLANX 1008000180825 IPSEL= 
ORUM FS 1905000431167 IPSEL= 
GUN PND 10080005n6753 IPSEL= 
ARMT SYS 1905000726612 IPSEL= 
MOTNP HYD 1005001027987 IPSEL= 
CONTROL 1905001051083 IPSEL= 
CONTROL AS 1005001107197 IPSEL= 
STRUCTUPE 1005001114648 IPSEL= 
UNLOAD ORV 1005001886968 IPSEL= 
CABLE ASSY 1005001886969 IPSEL= 
COMP ASSY 1005002213126 IPSEL= 
AMM) CAN 1005092213183 IPSEL= 
FEEDER AaSyY 1005002213225 IPSEL= 
ORUM INNER 1005002212325 IPSELS 
HOUSINGASY 1005002358299 IPSEL= 
FEED SYS 1005002392929 TPSELS 
ENTRANCE 1995002099828 IPSELs 
HOUSING 1005002767895 IPSEL= 
ExIT UNTT 1005092790528 IPSEL= 
ENCLOSUPE 1005902862754 IPSEL= 
CONTROL AX 1065003268791 IPSELS 
CHARGER GN 1905003472304 TPSEL= 
ORIVE HYD 1905003511849 IPSELs 
CRIVE ¥YOR 1005093601731 IPSELs 
ENCLOSURE 1006004717724 TPSELs 
MOTOR wYD 1005004488591} IPSEL= 
MOUNT PNTL 1908004508497 IPSEL= 
CONTROLLER 1905904626523 IPSEL= 
RYDR OR 1009004715930 IPSEL= 
COVER ASSY 1005004715946 IPSEL= 
FROME aSsSy 1005995202620 IPSELS= 
LOADER ASY 1005008267137 TPSEL> 
HAND OFE 1998005257138 IPSELs 
DRUM ASSY 1005005¢6AaS5216 IPSEL= 
ORUM INNER 1005005585284 IPSELS 
ACCESSUMNIT 1005005699715 IPSEL= 
MOTOR #YDR 190500573A197 TPSELS 


ROOSTER 1005095492073 TPSEL= 
SOLENOTA UNDSONHOTSIAL TPSEL= 
AMM CAN 1095006236434 tPSEL= 
CAVER ASSY 1005006236435 IPSEL= 
ROUSING 1005006954938 IPSEL= 
FEEQE® 1005007265650 IPSEL= 
SWITCH £005097%3140648 IPSEL= 
acTuaTcrR 1005007%31 301 IPSEL= 
HOUSING 1005007738807 IPSEL= 
Valve 1905008794284 IPSELs 


EXCLOSURE 1005008A4004} IPSELS 

1005008A90218 IPSEL= 

HOUSTNG 1005008953790" TPSELs 

CHUTE ASSY 1005008968672 IPSEL= 

“YD PRIVE 1095008988874 TPSEL= 

FEFOER 1995009039751 TPSEL= 

. $uu23 FCO 1005009093002 IPSEL= 
1005009224550 TPSEL= 

GUNM39A2LR 4005009307786 IPSEL= 

FEEDERASSY 1905099807787 IPSELs 

—.4 CYL GAS 109S0O09tAUSTA IPSEL= 
GUN “ear 100S09970KI11 TPSEL= 


Lad ed Ld Ld Ud tad tad fad Ud bad Lal val ad S08 tad ad Ml ad Cad Ud dd ld dd dd tt Ud ed td dd dd ad bd Ud Ud a ad td ad ad dad bd ld ad ad a ad dad ad tad 
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MOUNT INST 
MOUNT ASSY 
TRANS UNIT 
aMMQ afy 
CONVEYOR 
GEAR CASE 
GEARCASE 
FEED UNIT 
POO SuUll 
ORuM AaSsy 
RATOR Fwd 
TRANSFR UT 
ORIVEASSY 
ENTRANCE 
ORIVE ASSY 
TURNARQUND 
ACCESSUNIT 
CONTROL 
ext Carn 
CKTr carn 
80DY ASsSsY 
ORTVE wyOR 
ORUM aSSY 
Neus assy 
SUPPORTASY 
ExIT uNIT 
CIRCUIT CO 
Crscurt co 
actTyaTce 
ACT assy 
8Nx assy 
GUN 40M 9H 
LGANER LA 
LOADER RH 
FIRE MECH 
CONTROL 
MANTFOLN 
M72 INIT 
RCTAaARY ACT 
ACTUATOR 
REMOVER 
QeT CeLT 
a«T Cat 
G <IT 
C «KITT 
CARTRIDGE 
GUN C4@LE 
R«T Cat 
M1A3 REM 
M3A1 2EMOV 
Mea [NIT 
MSZ INTYT 
REMUVE? 
M32 INT 
§& SENSOR 
“45 INITOR 
M27 INTT 
Mto THRU 
REMOVER “8B 
a@oTary act 
ROTARY ACT 
ROTARY ACT 
Rotary act 
INTT AaSSY 
MQ@A2 THIS 
magat Nit 


1008009720375 
10050097 3614t 
19050097 38a20 
1005009298996 
1005009912607 
1005009974903 
1905009974922 
1005009974947 
1005010280626 
1005019418667 
100501942974n 
1009010446174 
1005010463536 
1005019502735 
1005019502736 
100S0tNS227A84 
1005010525278 
1005010539255 
1005010839257 
1005010529412 
1005010556484 
1005010590502 
1005010612723 
1005010614335 
100901062¢939 
1905010635629 
1010001921698 
101900192161¢ 
1010001921619 
1010091921621 
1010002274639 
1910002235557 
1019902835554 
LOLONOZL4%246 
1010902143247 
1915000244910 
1015006245937 
1377000608723 
1377000628879 
1377001257777 
1377002621979 
137700 7%9A57S2 
1377003922796 
1377004N794a9 
1277008087468 
12770NGH9IAStA 
137709489940 
1377009006877 
1377096285179 
1377006285180 
1377006285141 
1377007%19271 
1377007319272 
13777007S52A4A1 
1377007970710 
1377098092959 
1377008a51058 
1277008451089 
1377008579205 
1377006643226 
1377008915488 
1377098916310 
137700A91h315 
1377008916319 
137700899AR874 
127700926S4a}2 


TPSEL= 
IPSEL= 
IPSELS 
IPSEL= 
IPSELS 
[PSELS 
IPSEL= 
TPSEL= 
IPSEL= 
IPSEL= 
TPSEL= 
IPSEL= 
IPSEL= 
IPSEL= 
IPSEL= 
IPSEL= 
IPSEL= 
IPSEL= 
IPSEL= 
IPSEL= 
TPSEL= 
[PSEL= 
TPSELS 
IPSEL= 
IPSEL= 
IPSEL= 
TPSEL= 
IPSEL= 
TPSEL= 
IPSEL= 
IPSEL= 
TPSEL= 
TPSEL= 
IPSEL= 
IPSEL= 
IPSEL= 
IPSEL= 
TPSEL= 
TPSELS 
{[PSEL= 
IPSEL= 
TPSELS 
IPSEL= 
IPSEL= 
IPSEL= 
IPSEL= 
TPSELS 
IPSELS 
IPSELS 
TPSEL= 
IPSEL= 
TPSEL= 
IPSEL= 
IPSEL= 
IPSEL= 
TPSEL= 
TPSEL= 
IPSEL= 
TPSEL= 
IPSEL= 
TPSEL= 
TPSEL= 
TPSEL= 
IPSEL= 
IPSEL= 
Tesels 
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M3A2 [NIETO 
M3A3 THRUS 


ancKx MaTCR 
ROCKET MTQ 
INITIATOR 
DOME 

CELL LH 
CELL RH 
CELL Ly 
CELL RH 
CELL [NA R 
CELL O8D R 
TANK INTER 
CELL FWO R 
FITTING 
FLOCcR 
FLASK 
FLASK 
VALVE 
VALVE 
VALVE DIV 
CONTAINER 
EXCH SERVC 
FILTERASSY 
CIR CN CAB 
VALVE 
REGULATOR 
RELEASE AS 
CHAMAER AS 
REGULATOR 
MEATEQ 
VALVE 
MQQULATCR 
SENSOR 

Pc carn 
CNVYRRLAI0 
HOUSINGASY 
CNVYRRLA 11 
CNVYRRLR 12 
QalLReESToa 
RAIL ASSY 
QATLASY SA 
NINCH ASSY 
CNVYRRALA LS 
RAILASY 1 
MOUSASYLH 
RAIL asy 2 
RAILASY SR 
HSNASSYCON 
access uNT 
REFRIGERAT 
COMPRESSOR 
COOLER ASY 
COCLER 40S 
CASE LATRPE 
SURVIVALKT 
CYL vaLve 
SLIOE Case€ 
SLTNF assy 
vaLve asy 
SLIDECASAY 
SLINESASSY 
SLICE assy 
SLIDE ESCP 
RESFAYCIA 


1377009269415 
1377009325031 
1377009535547 
1377009979241 
1377010930586 
1377010530587 
1560003094656LC 
1860004367591LC 
1560004367592LC 
1560008367593LC 
1560004267594LC 
196000436759S5LC 
1560004367596LC 
15600042%67S597LC 
1$60004367598LC 
1560004357599LC 
156000821987ALC 
1650004038273 
1650004035274 
1660000703871 
1660001043261LS 
1660001240417 
16600016917352LS 
1660001769923LS 
1660001957729 
1660002381 362 
1660002422487LS 
1660004870102 
1660004870280 
1460007253330 
1660007399288 
1660009271996 
1660009705980 
1660010427234 
1660010656o044LS 
16700020457593J 
1670002857367 
1670002457848 
1670002457922 
1670002498479 
1570002e4954a0 
1670002499506 
1670002494420 
1670002496434 
1670002534749 
1670002538792 
1670902534795 
1670002534797 
1670002558473 
157000947a529RJ 
1730010720833Un 
4119004098611 
4110004N9AG13 
4110010385118 
4130010370566 
42290911a7870LS 
422009468N377LS 
424NNNOAAATZAOLS 
4240001066350LS 
O2240001147863LS 
424N002429384LS 
4240002490880LS 
4PaNND 2S 34dBILS 
S200 0N28HTHS9L5 
B2400N 28H FHHOLS 
4240094S90571L5 


IPSEL= 
IPSELS 
IPSEL= 
IPSEL= 
TPSEL= 
IPSEL= 
IPSELs 
IPSEL= 
IPSELs 
IPSEL=S 
IPSEL= 
TPSELS 
IPSELs 
IPSEL= 
IPSELs 
TPSEL= 
IPSEL= 
IPSEL= 
IPSEL= 
IPSEL= 
IPSELs 
IPSEL= 
TPSELS 
IPSEL= 
IPSEL= 
IPSELS 
IPSELs 
tPSELs 
IPSELS 
IPSELs 
IPSELs 
IPSELS 
IPSEL= 
IPSELS 
IPSEL= 
IPSEL= 
TPSEL= 
IPSFELS 
IPSEL= 
IPSEL= 
IPSEL= 
[PSEL= 
IPSEL= 
IPSEL= 
IPSELs 
IPSEL= 
IPSEL=S 
IPSEL= 
IPSEL= 
TPSEL= 
IPSEL= 
IPSEL= 
IPSELS 
IPSEL= 
IPSELS 
IPSELs 
IPSEL= 
TPSEL= 
IPSEL= 
IPSEL= 
IPSEL= 
IPSELs 
IPSEL= 
TPSEL= 
IPSEL= 
TPSEL= 


tad iad 8 Lab Ub tad bad tod Gt Ud Ld Ud ad td ed ind Ld Ud td dd ad td td td Ld td od Ud ld Ld add 8d Ud Ud dd ad cot ds Ud ad tad ad dd od td Ld a dd dd dd ad tt Ld Lad dd 


Cxute 
SLIDE assy 
Pump assy 
SEE27TI0GAL 
SWITCH 
STORAGE AY 
STORAGE AY 
STIMULI AY 
SwiTCrH ay 
SwITCH ayY 
SWITCH 4yY 
INTRFCE Ay 
RSC TSTR 
PANEL CONT 
VOLT sfcrT 
CRCTCRDASY 
CHA CAP BO 
OSCILLATOR 
MONOPROUY A? 
CKT CARO A 
COIL RF 
MOTOR a C 
MOTOR 
“MOTOR 
REGULATOR 
RBOXPWROSTR 
REG ASY HY 
POWER SUP 
PwR SUPPLY 
POWRSUPPLY 
POWER SUPLY 
PWR SUPPLY 
FwR SUPOELY 
cre CO asy 
POWER SUP 
POWER SUPLY 
OwR SUPPLY 
OaR Sj PPLY 
PwR SUPPLY 
SHwWES SUPP 
PwR SyPELY 
ParSuP Qa 
POwEQ sup 
POWERSUPLY 
BPOWE? SUPP 
PVA SUPPLY 
SnweR sue 
POWER SuP 
POWER SUPP 
POWER SUPPL 
POWER SUPP 
POWER §1)PeR 
cTrPcurt ce 
POWER $1)Pe 
SENER 4108 
cKT caro 
exr carn 
eu? Carn 
CxT Carp 
cx? Caen 
Ca@ce assy 
SwilTCHMrctyy 
CINT PANEL 
CuTCaRnasy 
eragn assy 
cx? CARO 


2S2u0dHadtOZIS_s 
42600098929079L5 
4320000093755 
4O200014S1N41GG 
492000195697 3ay 
9920005 30889509 
9892000536891 309 
4920095 36893209 
492000536894109 
4920005%4894a00 
492000536901009 
492000536°991700 
492000538875800 
492000540394700 
4920008294952900 
49350098701 AaBF 
5820902849379CXx 
$8200N644441 2CKx 
$821000367353 
S9GS0N41 6 34THYA 
§$9§000aaS7S47ax 
61050909799H5G6G6 
6105006262237 
6105099821 9282 
6110005000391 
6110008535162 
SBLLOOLOSaT2AL7 
#1300091 GSAS 
612309000186717 
6130000213378 
6130000679732 
6130090976577 
6130001NS8614 
6130001151841 
6120001688552 
613000199AR250 
6130002734919 
6139002897950 
€1200040405019 
6170094206519 
€130004204520 
6130904418708 
61300045 3ub14G 
61300009R1119 
6130008062034 
#130999167155 
6120010109339 
6130010162356 
6130010339090 
6130019347231 
£13001942228% 
6130010461723 
6130019530577 
61300106443uU0 
66250004586647BF 
626001949542 57 
262500194985 azI7Z 
26250018495 au JZ 
Sh25001 049547572 
466250010006 302 
4625001064689 57 
£625001131789)7 
625002620044 
Mo2SQ0GNTAs3aay 
46250105 2a1 aang 
hOEEDINAK 2271 
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TPSEL2 
IPSEL2 
TPSELS 
TPSELs 
IPSEL= 
IPSEL= 
TPSEL= 
TPSEL2 
IPSELs 
IPSELs 
IPSELs 
IPSEL= 
IPSELs 
IPSEL= 
TPSEL= 
IPSELs 
TPSELS 
[PSELS 
IPSEL= 
IPSELs 
IPSELs 
TPSEL= 
TPSELs 
TPSELs 
TPSELS 
I°SELs 
IPSELs 
IPSELs 
IPSELS 
TPSEL= 
IPSELS 
IPSEL= 
IPSEL= 
IPSELs 
IPSEL= 
TPSELs 
IPSELz 
TPSELs 
IPSELs= 
IPSELs 
IPSELs 
TPSELs 
IPSELs 
IPSEL= 
IPSEL= 
IPSELS 
TPSEL= 
TPSEL= 
IPSELS 
TPSEL= 
IPSEL= 
IPSELS 
IPSEL= 
IPSEL = 
IPSELs 
IPSEL2 
IPSEL= 
TPSELs 
IPSEL= 
IPSELs 
TPSELs 
IPSELs 
TPSELs 
TPSEL= 
T®SEL= 
IPSELs 


ad da ed ak ad ad oak Lad wad ad Cod Ud Lad Val Lad Lad 10d Gad Lad od Ud dd ad oad Lad tad Ld Ud id ad Ud Ld ad dd td Ud ad dd od ad Ud Lt Ltd Ld Ud td ed tad ad Ud ad Ud add ad at Ld dd 


TIMERSEQ 
ayR SUP AN 
INDICATOR 
GAGE 

cxT cod 
CIrrRcurr co 
CIRCUIT CO 
cKT CO ay 
cKr co 

CKT CO 

HO ASSY 
CKTCDAGMES 
ckT co 

CKT £0 

ckT co 

cxT cn 

CKkT CO 

CKT CO 

PwB assy 
OaTaA EL AY 
CARD CKT 
COFFEE ARE 
OVEN FCO0 
OVEN assy 
OVEN 

JVEN ac 
COFFEE RRw 
OVEN ac 
OVEN 
GALLEYSrFL 
OVEN 
GALLEY 


6685900763050 
46450015u65A6 
668090531298A 
hOdSN0S7 37407 
7025000041913 
7028000041914 
7025000043429 
7025000042831 
7925009043840 
7025000043846 
7025000048592 
7025010031885 
7025010491269 
7025010691270 
7029010691271 
7025010691272 
7025010693739 
7025010748204 
7035001971925 
7045010031764 
7050010550569 
7319000039a99 
7310000657060 
7310002259325 
7310005168989 
7310006343451 
7310007023329 
771000927TA% 214 
7310099958533 
7310910150966 
7310010823006 
73100105801 %1 


NRE AO, NMATCHS 


i Ut WW WU ad Gad dd a Ud rd dd td ddd dd Ud Ld dd dd tad a ad 


ams an TTT: 1 sian Geenemenmameetn aaesmeiinenitnettees nanedenenenemncietniin naa GUIR Aantal phos 


SSSESSSSISSSESHSSSSSSSSSSSSSSSSSSSSESSSSSSSSSSSSSSSSSSSSSSSSSESSSSSSSSSSESESSSSESESS 
SSSSSSESSSSESSSSSSESSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSESSSESSSESS 


$S3S388 $ S333 $333 $ $ 
$ $ $ $ $ $ $s 
S$S$S $SS$ $3 $sss $ $$$ $ s s$sss $$3$ 
$s $s $ $$$ $s 5 $s 
$ $ $ $ $ Ss $s $ 
$ ssss $S$SSSS $$$s $SS8 


SSSSESSSSHESSSSSSSSSSSSSSSSSSSSSSSSSSSSSESSESSSSESESSSSSSSSSSSSESSSSSESSSSSSSSESSESS 
SESSSSSSHESSSSSSSSSESSSSSSSSSSSSSSSSSSSHSSSSSSSSSSSSESSSSSSESSSSSSSSSESSSSESSSSSSSSE 
e- 30 DATE 09-09-81 TIME 11.015 10 = XL c 


APPENDIX G 


SOURCE CODE OF THE SETUP PROGRAM 


FOR A PARTICULAR BASE 


SYSTEM 2LIST LA61A/STARS/SOURCE/DM/SETUPO3 


920C ## ## LAGIA/STARS/SOURCE/DM/SETUP 2/4/81 FOR INPUT TO SGM 
9300 

940C THIS PROGRAM USES THE FOLLOWING SUBROUTINES UNDER LASIA/LNILIB 
950C = PIPECHP 
960C  EBOCHP 
970C = DFACTLN 
980C-——_—-— 
990C 

1000 PARAMETER SIZE=600 

1010 CHARACTER NDST#15( 140), MDS#15, NSN#18, ISMDSS#15( 140), IEC#2 

1020 CHARACTER MDSU#15( 10) NSNOUT#18(SIZE) 

1030 INTEGER LOCMDS( 140), BASET (599) » [FHT (S99) + IXMDS(140) SJ 

1040 INTEGER IQPAT( 140) NLRMIN( 256), IXBASE (256) » BASE J» JSFHT (140) 
1050 INTEGER JXMDS( 140), [QPA,EIGHTWDS(8)» IQPAOUT( SIZE)» INITSOUT (SIZE) 
1060 INTEGER MMDSU(10), IGPAU(10), IFHU( 10), THONDS(2) LIST(SIZE) 

1070 INTEGER IRANK(SIZE) 

1080 REAL FAPT( 140), PIPE(256) , BEBO(256) » BSHARE (256), FAPU(10) 

1090 REAL DEMANOUT (SIZE), FAPGUT(SIZE) »RESUPOUT (SIZE), RPRATOUT(SIZE) 
1100 REAL ENORSORT (SIZE), BNRTS(SIZE) > DRESD(SIZE) » BRESD(SIZE) 

1110 LOGICAL MATCH 


11 40C3HHHHHHEHHHHHHHHHHHHHHHHHHHHHHHE HEHEHE 
{1S50CHHE BEGIN. READ INITIAL DATA FOR TAPE 1. 

1160 READ(1) IDECIDE 

1170 PRINT," FOR INTERACTIVE DECISION #", IDECIDE 
1180 READ( 1 )NUMMDS» ILAST 

1190 READ( 1} (MDST( 1), 1=1,NUMMDS) 

1200 READ( 1) (LOCMDS(1), I=1,NUMMDS+1) 

1210 READ(1) (BASET(I), 1=1, ILAST) 

1220 READ(1) (IFHT (1), [=1, ILAST) 

1230C+HH# READ BASE, FLHRS PER A/C PER DAY, AND MDS‘S. 
1240 READ(S, 1) BASEJ 

1250 1: FORMAT(V) 

1260 READ(S, 1 )FHPERDAY 

1270 == 2: READ(S, 1. END=9 MDS 

1280C--— FINO MMDS 

1290 DO 5 MMDS=1,NUMNDS 

1300 IF (MDS. EQ. MDST(MMDS))GO TO 7 

1310 = 5 CONTINE 

1320 PRINT," DIDN’T USE °,MDS." BECAUSE IT WASN’T FOUND IN LIST" 
1330 GO T0 2 

1340C-—— FOUND FDS. SAVE. 


1400Ce#+# FIND FLYING HOUR PROGRAMS FOR MOSS AT BASEJ. 
1410 9 _ IF(NMDSU.EQ.0)STOP * NADSU=0° 


G-1 


1420 PRINT," MDSU ARRAY “, (MDSU(I), [=1,NMDSU) 
1430 NNDSSAT =O 
1440 DO 19 IMDS=1,NUMMDS 


140 DO 16 I=LOCMDS( IMDS)» LOCHDS< IMDS+1)-1 
1460 IF (BASET(1).£@.BASEJ)GO TO 17 
1470 16 = CONTINUE 

1480 @ TO 19 

1490C 

{500C === THIS MDS IS AT BASE. INCREMENT NMBSSATJ AND STORE MDS BATA. 
1510 17 = NADSSATUENMDSSATU+! 

1520 JSMDSS (NMDSSATJ) =MDST ( INDS) 

1530 USFHT ( NMESSATJ)=IFHT (1) 

1540 UXMDS (NMDSSATU)=IMDS 

1350 DO 18 IU=1,NMDSU 

1560 IFC IMDS.NE. MMDSU( TU) G0 TO 18 
1570 IFHU(IU)=IFHT(1) 

1580 IUE=[UEtIFHT(1) 


1590 18 CONTINUE 

1600 19 CONTIME 

1610C-——~ NMDSSATJ IS THE # OF MOS’S AT BASE J. 

1420C-———- USMDSS 1S THE ARRAY OF THESE NDS’S AND JSFHT IS THE FLYING HOURS. 
1630C-——- UXMDS IS THE ARRAY OF THE INDICES OF THESE MDS’S. 

1640 PRINT, * THE MDS’S AT THIS BASE ARE™» (JSMDSS(1), I=L, NMDSSATJ) 
1650 PRINT," THE FLYING PROGRAMS ARE “> (JSFHT(I), I=1,NMDSSATU) 
1660 PRINT," THE FLYING HOUR PROGRAMS FOR THE USED MDSS ARE" 
1670 PRINT," ", (1FHUCTU), IU=1,NMDSU) 

1680 PRINT," UE=", IVE 

1890C 

1700C 

1.7.3, O(CHHHHHHHHHEHHHHHHEHHHHHHHHHHHHHEHHHHHHEHHHHHHHHE 

1720C#### BEGIN NEW COMPONENT. INITIALIZE MATCH, IQPAU, FAPU, 
1730.20 MATCH. FALSE. 

1740 DO 35 [U=1,NMDSU 


17C 
170 TOPAUCTU)=0 
1770 FAPU(IU)=0. 
1780C 


170 3S CONTINUE 
1800 READ (1 ,ENI=999 NSN, DEBO, OIMRTO, OSTR@> IPSEL» RIP, COMPHDR, DRTIME, 
1810 & OST. BRT, IHIT, NBASES, IEC, COST, REPRATE, BRCRQ, DDR, NBMDSS 


1820 

1830 DO 50 I=1,IHIT 

1840 READ(1) IXMDS(1), IQPAT(1) »FAPT(T) 
1850 

1840 DO 40 U1, NADSU 

1870 IFC IXMDS(1). EQ. MABSU(IU))GO TO 45 
1880 40 = CONTINUE 

1890 GO 10 

1900C 

1910 45 — IF(NBASES)» 50, 

1920 


1930 ==== COMPONENT IS INSTALLED ON MIDS OF INTEREST. SAVE DATA. 
1940 MATCH. TRUE. 


PRCT EET aE RRP AL RR ee OnE NTR RNR mE REN 7 ewan: HE 


Ase Reo Re 


oe eee ee ee ete we area 


1950 WRITE(6.1)" * 
1960 WRITE(6.1)° M» IQPA,FAP=", IXMDS(1), IQPAT(1)," "sFAPT(I) 


1970 TQPAU(IU)=IQPAT(T) 

1980 IF¢ TQPAU(TU).GT.99) IQPAU(IU)=1 
1990 FAPUCIU)=FAPTIT) 

2000 «=S0 CONTINE 

2010C 


2020CHHH IF NOT MATCHED SKIP 

2030 IF (NOT. MATCH. OR. COMPHDR. LE.0.0005)60 TO 200 
2040 MATCH=. FALSE. 

2050 

2060C HHH READ BASE DATA, SAVING DATA FOR THIS BASE. 
2070 DO 110 J=1,NBASES 


2080 READ( 1) IXBASE( J) »PIPE(J)>NLRMIN( J) » BEBO(!) » BSHARE (J) 
2090 IF( IXBASE(J).NE.BASEJIGO TO 110 

2100C = ==== THIS BASE. SAVE DATA AND SET MATCH. 

2110 MATCH=. TRUE. 

2120 PIPEPIPE( J) 

2130 EBOU=BEBO( J) 

2140 SJENURAING J) 

2150 SHARE J=BSHARE ( J) 


2160 110 CONTINUE 

2170 IF(.NOT.MATCH) GO TO 300 
2180C 

2190C#### READ BMDS DATA. 

2200 TF (NBMDSS) 5 20, 

2210 TSHARE=0. 

2220 DO 115 [BMDS=1,NBMDSS 


2230 READ( 1) JFORBMDS, MFORBMDS, BMDSHARE 

2240C «=== IF THIS RECORD IS FOR THIS BASE, SUM BMDSHARE OVER ALL USED. 
220 TF (BASEJ. NE. JFORBMDS)G0 TO 115 

2260 DO 112 TU=1, NADU 

2270 IF (MFORBMOS. EQ. MMDSU( IU) ) TSHARE=TSHARE+BMDSHARE 

2280 «112 CONTINUE 

2290 WRITE (6, 1)" J» My BMDSHARE=", JFORBMDS: NFORBMDS, " ", BMDSHARE 
2300€ 


2310 115 CONTINUE 

2320 IF (SHAREJ)» 20, 

2330 IF (PIPEJ), 20, 

2340 IF (SJ. EQ. 0. AND. PIPEJ.GE.3.5)G0 TO 400 
2350C HH COMPUTE GPAM & FAP AND UPDATE TOTHDR 


2360 1@PA-0 

2370 TH =0. 

2380 TFHU=0. 

2390 DO 120 IU=1,NADSU 

240 TOF=TQF +I QPAUC TU) SIF HUC 10) #FAPUC TU) 
2410 TFHUSTFHU+ IFHU( IU) 

2420 IF ( 1QPAU( TU). GT. [QPA) [QPR=IQPAUC IU) 


2430 +120 CONTINUE 

2440 IF (IQPA), 20, 

2450 FAP=TOQF/( 1QPA8TFHU) 

2460 TOTHDR=TOTHOR+COMPHDR§ I OPASF AP 
2470C 


2480C#### COMPUTE PRORATED EBO & # SPARES AND CALCULATE RESUPP 
2490 PROF ACT=TSHARE / SHARE J 
2495 IF (PROFACT. GT. 1. )PROFACT=1. 
2500 EBOOUT=EBOHPROF ACT 
2510 INITSJSJ*PROFACT+. 5 
2520 TCOST=TCOST+INITSU#COST 
2530 IF(PROFACT. GE. 0. 9999. 0R. SJ.EQ. 0. OR. EBOU.LE.0. 60 TO 130 
2540 CALL PIPECMP(EBOOUT, INITSU»RESUPP) 
2550 GO TO 140 
2560 130 RESUPP=P IPEJ#PROFACT 
2570C:HHH WRITE OUTPUT DATA 
2580 140 DENANDS=COMPHDR 
IF (EBOJ.LE.0. )DEBO=0. 
DLAMB=0. 
IF (OST. GT.0. )DLAMB=OSTRQ/GST 
BLAMB=0. 
IF (BRT. GT. 0. )BLAMB=BRCRG/BRT 
BNRTSPCT=DLANB/ ( DLAMB+BLANB) 
DRESDAYS=0ST+DEBO#0 1 NRTO/DLANB 
ARESDAYS=. 041666667 /REPRATE 
BRESDAYS=(ARESDAYS-BNRTSPCT #DRESDAYS) / (1. -BNRTSPCT) 
IF (BRESDAYS. GE. BRT-.0001)GO TO 145 
WRITE (6, 142) BRESDAYS, BRT 
142 FORMAT(F8.3,".6T. "»F8.3) 
ERESDAYS=BRT 
145 ENORS=9999.9 
IF (REPRATE. GT. 0) ENORS=[UE#FHPERDAY+FAP#DEMANDS/ (1. -EXP(-24, 
& #REPRATE) )-FLOAT( INITSU) /FLOAT{ IGPA) 
NPARTS=NPARTS+ 1 
IF (NPARTS. EQ. 1) WRITE (6) 150) 
IFCILINE.EQ.0)PRINT 150 
150 FORMAT("1",127, "REMOVAL", 147, "REPAIR INITIAL”, 198, 
& "PRORATING TOTAL TOTAL TOTAL"»/," INDEX",113,°NSN", 728, 
& "RATE OPA FAP RATE STOCK RESUPPLY £50", 782; 
& "COST FACTOR STOCK RESUPPLY &BO",//) 
TLINE=ILINE+1 
IF CILINE. EQ. 50) ILINE=0 
PRINT 160,NPARTS, NSN, DEMANDS, IQPA, FAP, REPRATE, INITSJ, RESUPP, EROCUT 
& , COST, PROFACT, SJ, PIPEJ,EBOJ 
160 FORMAT (15, 2X.A18,F8. 5: 145F6.2.F9. 5s 16sF12.25F7.39F9.0F8. 4s 
& 17,F11.2,F8.3) 
WRITE (6, 160)NPARTS, NSN, DEMANDS, [GPAs FAP, RPRATE, INITSJ»RESUPP, 
& EBOOUT, COST, PROFACT, SJ, PIPEJ,EBQU 
NSNOUT (NPARTS )=NSN 
DEMANOUT (NPARTS) =DEMANDS 
IQPAQUT (NPARTS)=IQPA 
FAPQUT (NPARTS)=FAP 
RPRATOUT (NPARTS ) =REPRATE 
INI TSOUT(NPARTS)=INITSJ 
RESUPOUT (NPARTS ) =RESUPP 
ENORSORT (NPARTS) =ENORS 
BNRTS (NPARTS )=BNRTSPCT 
DRESD(NPARTS )=DRESDAYS 


2960 BRESD (NPARTS)=BRESIAYS 

2970 G0 T0 20 

29:30C 

29500 

200 0G 3 HHHHHHHHHEHHHEHHHHHHHHHHHHHHHHHHHHHHHHHHHHHEHEE 

SOLOCHHE SKIP LOGIC HHHHHHH 

S020C#HHH READ BASE DATA & BHDS DATA (IF ANY) AND SKIP. 

3030 200 IF(NBASES),300, 

3040 DO 250 J=1,NBASES 

3050 READ( 1) 

3060 250 CONTINUE 

3070C#HHt READ BMDS DATA & SKIP 

3080 300 IF(NBMDSS), 20, 

3090 BO 350 [=1,NBMDSS 

3100 READ(1) 

3110 350 CONTINE 

3120 GO TO 20 

31200 

3140C 

31 SOC 3 HHHEHHHHHHHHEHHHHHHHHEHHHHHHHHHHHHHHHE HEE 

3160C#### BAD COMPONENT. APPLICATION MISMATCH, 

3170 400 PRINT," APP. MISMATCH ON “.NSN,” “, COST 

3180 GO TO 20 

3L90C 

32000 

371 OC HHH HHH HEHEHE ade 

37 20C;4HHt PRINT FINAL STATS 

3220 999 CALL MSORTD(NPARTS, ENORSORT, IRANK) 

3240 DO 2000 I=1,NPARTS 

3250C 

3740 IF(MOD(I,50).EQ.1)PRINT 1010 

3270 1010 FORMAT(*1",127, “REMOVAL”, T47,"REPAIR INITIAL”, T88, 
3280 & "PRORATING TOTAL TOTAL TOTAL «= RESUPP"./," INDEX",T13, “NSN® 
3290 & ,728, "RATE QPA FAP RATE STOCK RESUPPLY E80", T82, 
3200 & “COST FACTOR STOCK RESUPPLY EBO DAYS NORS",//) 
3310 TOUT=TRANK(T) 

3320 PRINT 1020, I,NSNQUT( IOUT), DEMANOUT (IOUT), IQPAQUT (IOUT), 
3330 & FAPOQUT( TOUT) »RPRATOUT( IOUT), INITSOUT( TQUT) » RESUPOUT { TOUT) 
3340 & ,(.04167/RPRATOUT( QUT) )ENORSORT (IOUT) 

3350 1020 FORMAT(15,2X,A18.F8.5,14,F4.2.F9.99 16.F12. 2.7121, 2F6.2) 
3360 WRITE(2)NSNOQUT ( IGUT), DEMANOUT (10UT), TQPAGUT (GUT), 
3370 & FAPOUT(IGUT), INITSOUT( IOUT). RESUPOUT( IGUT) 

3380 & , BNRTS( IOUT), BRESD( IQUT), DRESD¢ IOUT) 

S390 

3400 2000 CONTINUE 

3410 PRINT 3000 

3420 3000 FORMAT(*! FINAL REPORT") 

3430 PRINT,® FOR A TOTAL OF",NPARTS,* COMPONENTS 

3440 PRINT," TOTHDR=",TQTHDR," TCOST=";TCCST 

2450 STOP 

3460 END 


SYSTEM PLIST LAGIA/LAILIB/PIPECHP 


330C ++ ae LASIA/LMILIB/PIPECMP 2/3/81 BY FMS 

940C 

950C THIS SUBROUTINE USES THE FOLLOWING SUBROUTINES UNDER LASIA/LMILIB 
960C «|= EBOUIP 

970C DFACTLN 

980C 

F0C 

1000 SUBROUTINE PIPECMP(EBOIN, N, PIPE) 

1010C###t THIS SUBROUTINE CONVERGES ON THE PIPELINE AT A CLAIMANT 
1020Cet#e WHICH GIVES THE EBOIN W/ N SPARES AT THAT CLAIMANT 
1030 IF(N),998, 

1040 IF (EBOIN) 998, 

1050 FLOATN=FLOAT (N) 

1060 PIPE=FLOATN+EROIN-SORT (FLOATN/6. 28) 

1070 CALL EBOCNP(PIPE,N,EBO) 

1080 PIPELAST=P IPE 

1090 EBOLAST=EB0 

1100 PIPE=PIPE-EBO+EBOIN 

1110 DO 100 1=1,200 

1120 CALL EBOCMP(PIPE,N.EBO) 

1130 IF (ABS (EBO-EBOIN) .LT.0.00001)G0 TO 999 

1140 PIPEHOLD=P IPE 

1150 PIPE=P [PE+ (EBOIN-EBO) #(PIPE-P [PELAST} / (EBO-EBOLAST} 
1160 PIPELAST=PIPEHOLD 

1170 EBOLAST=EB0 

1180 100 CONTINUE 

1190 PRINT:” PIPECMP DIDN’T CONVERGE AFTER 200 ITERATIONS * 
1200 PRINT) ° PIPE, N» EBOIN, EBOLAST=", PIPE, N, EBOIN, EBO 
1210 CALL EBOCMP(PIPE,N,EBO) 

1220 PRINT,” EBONOW=",EB0 

1230 GO 10 999 

1240 998 PIPE=EBOIN 

1250 999 RETURN 

1260 END 


G-6 


SYSTEM ?LIST LASIA/LAILIB/EBOCAP 


940C ## ## LAGIA/LMILIB/EBOCHP 2/3/81 BY FHS 

90C 

960C THIS SUBROUTINE USES THE FOLLOWING SUBROUTINES UNDER LAGIA/LMILIB 
970C DFACTLN 

9800 

990 

1000 SUBROUTINE EBOCMP(PIPE,N,EBO) 

1010C#### THIS SUBROUTINE COMPUTES THE EBO AT A CLAIMANT AS A FUNCTION 
1020C#H+# «OF THE PIPELINE AND THE @ CF SPARES “N". 


FLOATN=FLOAT(N) 

T=N+1 

FLOATI=FLOATN#I. 

ERO=0. 

IF{PIPE) +200; 

POF ILOG=FLOAT] #ALOG(PIPE)-PIPE-SNGL ( DFACTLN(T)) 
IF{POFILOG. GE.-25.) GO TO 100 

IF (FLOATN. LT. PIPE) EBO=P IPE-FLOATN 

GO TO 200 


1140C#### COMPUTE EBO 
1150 100 POFI=EXP(POFILOG) 
1160 TRATOADD=POF 1 
11700 
L180CHHH SUM EBO UNTIL TERMS DIMINISH BELOW ACCURACY OF ADD 
1190 150 EBO=EBO+TRMTOADD 
FLOATI=FLOATI+1. 
POF 12F°0F 14P IPE/FLOATI 
TRATOADD=(FLOATI-FLOATN) #POF I 
IF (TRMTOADD. GT.5.E-9#€B0)G0 TO 150 


1250C- HHH DONE 
1260 200 RETURN 
1270 END 


SYSTEM ALIST LASIA/LMILIB/DFACTLN 


FS0C te Ht LASIA/LMILIB/DFACTLN BY MK 

990C 

1000 DOUBLE PRECISION FUNCTION DFACTLN(N) 
LOLOCHHE 


LO20CsHHHHE = THIS FUNCTION COMPUTES THE LOGARITHM (BASE E) OF 


| 
LOQOC:HHHH ‘N’ FACTORIAL. 
1040C#H 
1050 PARAMETER MAXTBLE=30 
1060 IMPLICIT DOUBLE PRECISION(D) 
1070 DIMENSION DTABLE(MAXTBLE) 
1080 EQUIVALENCE (DTABLE(0),DZERO) | 
LO70CHHE #0SIGMA IS A CONSTANT = LN(SQRT(2#P1)) { 
1100 DATA DSIGMA/.91893 85332 04672 74178D0 / 
1110C### SDZERO 1S THE LOGARITHM (BASE E) CF 0! 
1120 DATA DZERO/0. 0D0/ ' 
L130C##Ht #DTABLE(I) IS THE LOGARITHM (BASE E) OF I! 
1140 DATA DTABLE/ 
1150 & 0.000, 


1160 & .693147180559945310D0, 
1170 & .1791759469228050001» 


1180 & .317905383034794562M1 , 
1190 & .47874917427820459901, 
1200 & .65792512120101009901, 
1210 & .852516136106541430D1, 
1220 & .10604460290274525022; 
1230 & . 12801877480081469602; 
1240 & .15104412573075515302, 
1730 & .17502307245873885802;, 
1260 & .19987214495661886202, 
1270 & .22992163853123422902, 
1280 & . 25191221 182738681502, 
1290 & .2789927 1383840891602; 
1200 & .30671860106080672802, 
1310 & .33505073450126888902, 
1320 & .36395445208033052602, 
1330 & .39339884187199494002, 
1340 & .42395616460753485002, 
1350 & .45380138898476906002, 
1360 & .4847118135)835223902, 
1370 & .51606675567764373602, 
1380 & ,547847293981123192D2, 
1390 & .580036052229791579D2; 
1400 & .61261701761002002002; 
mae 1410 & .64557538627006331 102; 
1420 & .67889743137181534902; 


1430 & .71257038967158009002; 
1440 & «7465823634880 164302 
1450 u/ 
: 1460CH+ 
1470C HH #IF(N IS WITHIN THE TABLE LIMITS) 


1480 IF((N.LT.O) JOR. (N.GT.MAXTBLE)) GO TO 100 

1490C: HH 

1500C #RETURN TABLE VALUE 

1510 OFACTLN = DTABLE(N) 

1520Cs4H 

1530C #4 #ELSE (USE STIRLING’S APPROXIMATION - SEE KNUTH VOL 1,P 111) 
1540 @ TO 200 

1550 100 CONTINUE 

1540CiHHt 

1570C#iH *COMPUTE VARIOUS PARTS NEEDED FOR THE APPROXIMATION 
1580 DPN = DBLE(FLOAT(N)) 

1590 DFACTLN = (DPN + .5D0)4DL0G(DPN) - DPN + DSIGMA 
1600& + 1.0D0/(12. ODOSDPN) 

1610& - 1,000/ (340. ODO+DPN#DPNHDPN) 

1620CK+# 

16300 #€ND IF (TABLE LIMITS TEST) 

1440 200 CONTINUE 

1650CHt 

1660 RETURN 

1670 END 


APPENDIX H 


SOURCE CODE OF THE SETUP PROGRAM 


FOR A NOTIONAL BASE 


SYSTEM °LIST LAGLA/STARS/SOURCE/DM/SETUPNO3 


F20C #& ## LAbIA/STARS/SOURCE/DM/SETUP 2/4/81 FOR INPUT TO SGM 
930C 

940C THIS PROGRAM USES THE FOLLOWING SUBROUTINES UNDER LASIA/LMILIB 
950C =~ PIPECHP 

960C  EBOCMP 

970C DFACTLN 


1000 PARAMETER SIZE=400 

1010 CHARACTER MDST#15( 140), MOS#15,NGN#18, JSMDSS#15( 140), IEC#2 
1020 CHARACTER MDSU#15( 10) NSNOUT#18(SIZE) 

1030 INTEGER LOCMDS (140), BASET (599), IFHT (S99), IXMDS(140),SJ 
1040 INTEGER [QPAT(140).NLRMIN, IXBASE, BASEJ, JSFHT (140) 

1050 INTEGER JXMOS( 140), 1GPA.EIGHTWOS(8) . JINGROUP (256) 

1060 INTEGER MDSUC 10), IGPAUC1O), [FHUC1O) » THOMDS( 2) 

1070 INTEGER IQPAOQUT(SIZE), INITSOUT(SIZE) LIST(SIZE), [RANE (SIZE) 
1080 REAL FAPT(140),PIPE, BEBU, RSHARE, FAPU(10) 

1090 REAL DEMANOUT (SIZE), FAPOQUT( SIZE), RPRATOUT (SIZE), RESUPOQUT (SIZE) 
1100 REAL ENORSORT (SIZE), BNRTS(SIZE), DRESD(SIZE)  BRESP< SIZE) 
1110 LOGICAL MATCH 


1130C 

11 AOC HHH HEHE oe O00 
1150C###¢ BEGIN. READ INITIAL DATA FOR TAPE |. 

1160 READ( 1) IDECIDE 

1170 PRINT.° FOR INTERACTIVE DECISION @°. IDECIDE 
1180 READ (1) NUMMDS, ILAST 

1190 READ( 1) (MDST( 1). 1=1,NUPIMDS) 

1700 READ( 1) (LOCMDS( 1), 1=1, NUMMDS¢1) 

1210 READ(1)(BASET( 1). [=1, ILAST) 

1220 READ( 1) CIFHT(1),f21, ILAST) 

1230C #04 READ FLHRS PER A/C PER DAY. AND MIS’S. 

1240 READ( 5. 1 }FHPERDAY 

{250 1 FORMAT(V) 

1750 2 READ(S. 1. END=9) MGS 

1270C-—— FIND HMDS 

1290 [0 5 MMDS=1.NUMMDS 

1790 IF (MOS. EQ. MDST(MMDS) 00 TO 7 

100 5S CONTINUE 

{310 PRINT,” DIDN’T USE °.MDS," BECAUSE IT WASN’T FOUND IN LIST® 
1320 @ 10 2 

1330C-——- FOUND MDS. SAVE. 

1240 7 NADSU=NADSU+ I 

1350 PEISU ( NMDSU) 2990S 

1260 PDSU: NADSU) =DS 

1370 [0 8 [=LOCMUS (MDS) .LOCMDS(MMNG+1)-1 


1280 PHU UNIDSU) =] PHU NMDSU) « IFHT (1) 
1390 TUEs [UE + FHT (1) 

1400 = 8 CONTINUE 

1410 GO 10 2 


1430-9 PRINT," THE FLYING HOUR PROGRAMS FOR THE USED MBSS ARE" 
1440 PRINT,“ “. CLFHU( EU), [U1 NMOSU) 
1450 PRINT," UE=", IUE 


1.4 30 HHH HHHHHHHHHHHHHHHHHHEH HEHEHE 
1490C##+ BEGIN NEW COMPONENT. INITIALIZE MATCH, IGPAU, FAPU. 
1500-20 MATCHE. FALSE. 

1510 DO 35 1-1, NADSU 


1520 

1530 TOPAUITU)=0 
{540 FAPU(TU)=0. 
1550 

{0 FS CONTINE 


1570 READ( 1, END=999 NSN, DEBG, CIMRTG, OSTRG, JPSEL RIP, COMPHDR, DRTIME, 
1580 & OST, BRT, IHIT, NBASES, [EC COST, REPRATE, BRCRQ, DDR. NBMDSS 


15900 

1600 DO 50 J=1,IHIT 

1610 READ( 3) IXMDS(1), FQPAT( 1), FAPTII) 

1620C 

1630 DO 40 IU=],NADSU 

1640 IF(IXMDS(1). EQ. MMDGUI1U))GO TO 45 

1650 40) CONTINUE 

1460 60 TO 50 

1670€ 

1630 45 ~~ IFINBASES),50, 

16900 

1700C — ==== COMPONENT IS INSTALLED ON MDS OF INTEREST. SAVE DATA. 
1710 MATCH=. TRUE. 

1720 WRITE(6, 1)" * 

1730 WRITE (65 1)" M, IQPA,FAP=", IXMDS(1),IQPAT(i).° "»FAPT(I) 
1740 TOPAULIU)=TOPATIT) 

1750 IF ( TQPAU( IU) GT. 99) TQPAU(IU)=1 

1760 FAPU(IU)=FAPT(1) 

1770 SO CONTINE 

1780 


{79OCHHH IF NOT MATCHED SKIP 
1800 IF (, NOT. MATCH. OR. COMPHDR. LE.0.0005)60 TO 200 
1819 MATCH. FALSE. 


1820€ 

1830C HHH READ BASE DATA, SAVING DATA FOR THIS BASE. 
1840 TPIPES0. 

185) TREBO=0, 


1840 NTSPARES=0 
1870 DO 110 J=1,NBASES 


1890 READ( 1) IXBASE: PIPE, NURMIN, BEBO, BSHARE 
1890 TBEBO=TREBO+ BEBO 

1900 NT SPARES=NT SPARES +HLANIN 

1910 TP IPE=TPIPE+P IPE 

1920 130 CONTINUE 

1930C 


1940C#484 READ BMDS DATA. 


H-2 


IF (NBMDSS) 20, 
TSHARE=0, 
NINGROUP=0 
1980 DO 115 [BMDS=1,NBMOSS 
1990 READ( 1) UFORBMDS. MFORBMDS, BHDSHARE 
2000 DO 111 TUE1,NADSU 
2010 TF(MFORBMDS. £0. MPDSU( IU). AND. IQPAU(IU).GT.0)G0 TO 112 
2020 111 CONTINUE 
2030 GO TO 115 
2040C 
2050C 4 ==== IMPORTANT BMDS SUM TSHARE AND UPDATE NINGROUP 
2060 112 TSHARE=TSHARE+BMDSHARE 
2070 IF(NINGROUP ) 114, 
2080 DO 113 1=1,NINGROUP 
2090 IF( JINGROUP(1).£Q. JFORBMDS)G0 TO 115 
2100 113 © CONTINUE 
2110 
2120C «= ==== NEW BASE. INCREMENT NINGROUP AND STORE J 
2130 114 — NINGROUPSNINGROUP+1 
2140 JINGROUP (NINGROUP ) =JFORBMDS 
2150C 
2140 115 CONTINUE 
2170 IF(TSHARE)» 20; 
2180 IF (NINGROUP ) » 20, 
2190 IF(TPIPE) +20, 
2200 IF (NTSPARES. EQ. 0. AND. TREBCHTSHARE..GT.3. S#NINGROUP)GO TO 400 
2210CHHHt COMPUTE GPAM & FAP AND UPDATE TOTHDR 
1QPA=0 
TOF=0. 
TFHU=0, 
DO 120 IU=1,NADSU 
TOF=TQF+IQPAUC IU) #1 FHUC IU) #FAPUC IL) 
TRHUETFHU+ TFHU IU) 
IF ( TQPAU( IU) .GT. 1QPA) [QPA=IQPAL( IU) 
120 CONTINUE 
IF LIQPA)» 20; 
FAP=TOF / ( ]QPA®TFHU) 
TOTHOR=TOTHDR+COMPHOR# | QPASFAP 
2330C 
2340C#HHH COMPUTE PRORATED EBO & # SPARES AND CALCULATE RESUIPP 
230 PROF ACT=TSHARE /NINGROUP 
2340 EBOOUT=TBEBO#PROF ACT 
2370 INI TSJENTSPARES#PROFACT +0. 5 
2280 TCOST=TCOST+INITSJ#COST 
2390 IF (PROFACT. GE. 0. 9999.0R. INITSJ. EQ. 0. OR. THEBO.LE.0. 60 TO 130 
2400 CALL PIPECMP(EBOOUT, INITSJ, RESUPP) 
2410 GO 10 140 
2420 130 RESUPP=TPIPE*#PROFACT 
2430CHHH WRITE OUTPUT DATA 
2440 140 DEMANDS=COMPHDR 
<40 RPRATE=REPRATE 
2455 IF ( TBEBO.LE.0, )DEBO=0, 
2460 DLAMB=0. 


2470 IF (OST. GT.0. )DLAMB=0STRG/OST 

2480 BLAMB=0. 

2490 IF(BRT.GT.0. )BLAMB=BRCRG/ BRT 

2000 BNRTSPCT=DLAMB/ ( DLAMB+BLAMB) 

2510 DRESDAYS=OST+DEBO#O1MRTO/DLAMB 

2520 ARESDAYS=. 041666667 /REPRATE 

2330 BRESDAYS=( ARESDAYS-BNRTSPCT#DRESDAYS) / (1. -BNRTSPCT) 

2540 ENORS=9999..9 

2550 IF (RPRATE. GT.0. ) 

2560 RENORS=1UE¢FHPERDAY #F APEDEMANDS/ (NINGROUPS (1. -EXP(-24. #RPRATE) )) 
2570 & = -FLOAT(INITSJ) /FLOAT( 1QPA) 

2580 NPARTS=NPARTS+1 

2590 IF (NPARTS. EQ. 1 )WRITE(6) 150) 

2600 IF(ILINE.EQ.0)PRINT 150 

2610 150 FORMAT("1", 127. "REMOVAL", 147,"REPAIR INITIAL", 188; 

2620 & "PRORATING TOTAL TOTAL TOTAL", /," INDEX", T13, "NSN", 128, 
2630 & "RATE QPA FAP RATE STOCK RESUPPLY £B0",182, 
2640 & "COST FACTOR STOCK RESUPPLY BO NBASES",//) 

2650 ILINE=ILINE+1 

2660 IF (ILINE. FQ.50) ILINE=0 

2670 PRINT 160, NPARTS, NSN, DEMANDS, [QPA,FAP, RPRATE, INI TSU» RESUPP, EBOOUT 
2680 & »COST, PROFACT, NTSPARES, TPIPE, TBEBO. NINGROUP 

2690 160 FORMAT( 15, 2X,A18,F8.5 14,76, 22F9. 5) 1bsF12.2:F7.39F9.02F 8.45 
2700 & 17,F11.2,F8.3)15) 

2710 WRITE( 4) 160).NPARTS: NSN» DEMANDS, [QPA, FAP, RPRATE, INITSJ» RESUPP, 
2720 & EBOOUT, COST, PROFACT, NTSPARES, TPIPE» TBEBO: NINGROUP 

2730 NSNOUT (NPARTS) =NSN 

2740 DEMANOUT (NPARTS) =DEMANDS 

2750 TQPAQUT (NPARTS) =10PA 

2760 FAPOUT(NPARTS )=FAP 

2770 RPRATOUT (NPARTS) =RPRATE 

2780 INI TSOUT(NPARTS)=INITSJ 

2790 RESUPOUT (NPARTS ) =RESUPP 

2800 ENORSORT (NPARTS ) =ENORS 

2810 BNRTS(NPARTS )=BNRTSPCT 

2820 DRESD(NPARTS) =DRESDAYS 

2830 BRESD( PARTS) =BRESDAYS 

2840 CO 10 20 


2870 C3HHHHHHHHHHHHHHHHHHHHHHHE HH HHEHHHHHEHHHHEHHEE 
2B80C HHH SKIP LOGIC HHHHEHH 
2690CHHH# READ BASE DATA & BMDS DATA (IF ANY) AND SKIP. 
2900 200 IF(NBASES) 300, 
2910 DO 250 Jel, NBASES 
2920 READ(1) 
are 2930 +250 CONTINUE 
2940Caete READ BMDS DATA & SKIP 
2950 300 IF(NBADSS), 20, 


2960 
2970 


DO 350 1=1,NBMDSS 
READ(1) 


2930 350 CONTIME 
2990 


60 TO 20 


3000€ 

3010C 

30200 HHHUHHHHHHHEHHHHHHHHHHHHHHHHHE HEME 

SO030C:HHH BRAD COMPONENT. APPLICATION MISMATCH. 

3040 400 PRINT,” APP. MISMATCH ON ".NSN,” *, COST 

3050 @ TO 20 

3060C 

3070C 

QUOC HHHHBHHHHHHHHHHGHHHE EH HHHHBHHEHEHHHHHHHHHHHHHEE 

SO90C:HH PRINT FINAL STATS 

3100 999 CALL MSORTD(NPARTS, ENORSORT, IRANK) 

3110 DO 2000 I=1,NPARTS 

3120€ 

3130 IF (MOD(1,50).£0. L)PRINT 1010 

3140 1010 FORMAT("1",127, "REMOVAL", 1T47,"REPAIR INITIAL", 188, 

3150 & "PRORATING TOTAL TOTAL TOTAL RESUPP",/," INDEX", T13, “NSN*® 
3160 & ,728, "RATE GPA FAP RATE STOCK RESUPPLY EBO’, 182, 
3170 & "COST FACTOR STOCK RESUPPLY ERO DAYS NORS",//) 
3180 TOUT=IRANK(1) 

3190 PRINT 1020, 1+NSNOUT (IOUT), DEMANOLIT (IOUT), IQPAQUT(ICUT), 
3200 & FAPOUT( IOUT) RPRATOUT( IQUT), INITSOUT( IOUT) RESUPOUT ( I0UT) 
3210 & »(.04167/RPRATOUT( IOUT) ) ENORSORT (IOUT) 

3220 1020 FORMAT (15, 2X,A18,F8.5s14.F6.2,F9, 5s 16.F12.2) 1121, 2F6. 2) 
3230 WRITE(2)NSNOUT ( TOUT), DEMANOUT ( TOUT) , IQPAQUT (IOUT), 

3240 & FAPOUT( IOUT), INITSOUT (IOUT), RESUPOUT{ IQUT) 

320 & .BNRTS(IQUT), BRESD( 1GUT) DRESD( 10UT) 

32460€ 

3270 2000 CONTINUE 

3280 PRINT 3000 

32% 3000 FORMAT("! FINAL REPORT") 

3300 PRINT," FOR A TOTAL OF".NPARTS,“ COMPONENTS® 

3310 PRINT," TOTHDR=",TOTHDR," TCOST=",TCOST 

3320 STOP 

3330 END 


SYSTEM LIST LAGIA/LAILIB/PIPECHP 


930C Ht #t LASIA/LMILIB/PIPECHP 2/3/81 BY FMS 

940C 

F30C THIS SUBROUTINE USES THE FOLLOWING SUBROUTINES UNDER LAS1A/IMILIB 
960C  EBOCHP 

970C = DFACTLN 

I80C- 

9900 

1000 SUBROUTINE PIPECMP(EBOIN, N, PIPE) 

1O10C HHH THIS SUBROUTINE CONVERGES ON THE PIPELINE AT A CLAIMANT 
1020C#### WHICH GIVES THE EBOIN W/ N SPARES AT THAT CLAIMANT 
1030 IF(N) ,998, 

1040 IF(EBOIN) 998, 

10% FLOATNEFLOAT(N) 

1060 PIPE=FLOATN+EBOIN-SORT (FLOATN/6. 28) 

1070 CALL EBOCMP(PIPE,N,EBO) 

1080 PIPELAST=P IPE 

1090 EROLAST=EB0 

1100 PIPE=PIPE-EBO+EBOIN 

1110 DO 100 I=1,200 

1120 CALL EBOCMP(PIPE,N,EBO) 

1130 IF (ABS(EBO-EBOIN) .LT.0.00001)G0 TO 999 

1140 PIPEHULD=P IPE 

1150 PIPE=PIPE+(EBOIN-EBO) #(PIPE-PIPELAST )/ (EBO-EBOLAST) 
1160 PIPELAST=? IPEHOLD 

1170 EBOLAST=EB0 

1180 100 CONTINUE 

1190 PRINT,* PIPECMP DIDNW’T CONVERGE AFTER 200 ITERATIONS * 
1200 PRINT," PIPE, N,EBOIN, EBOLAST=",PIPE,N»EBOIN, EBO 

1210 CALL EBOCHP(PIPE,N,EBO) 

1220 PRINT,” EBONOW=", EBO 

1230 @ 10 999 

1240 998 PIPE=EBDIN 

1250 999 RETURN 

1260 END 


SYSTEM PLIST LASIA/LMILIB/EBOCHP 


FA0C #8 HH LAGIA/LNILIB/EBOCMP 2/3/81 BY FHS 
FHC 


960C THIS SUBROUTINE USES THE FOLLOWING SUBROUTINES UNDER LASIA/LMILIB 


970C = DFACTLN 

380C-—— 

990C 

1000 SUBROUTINE EBOCMP(PIPE, N»EBO) 


1010Cs### THIS SUBROUTINE COMPUTES THE EBU AT A CLAINANT AS A FUNCTION 


1020C#### OF THE PIPELINE AND THE # OF SPARES "N". 
1030 
1040 FLOATN=FLOAT (N) 


1050 I=Ne1 
1060 FLOATI=FLOATN+L. 
1070 EBO=0 


1080 IF (PIPE), 200, 

109% POF ILOG=FLOATI#ALOG(PIPE)-PIPE-SNGL { DFACTLN( 1) ) 
1100 IF (POFILOG. GE.-25.) GO TO 100 

1110 IF (FLOATN.LT. PIPE) EBO=P IPE-FLOATN 

1120 GO TO 200 


1140Cs#t# COMPUTE EBO 

1150 100 POFI=EXP(POFILOG) 

1160 TRATOADDEPOF T 

1170C 

1180C#### SUM EBO UNTIL TERMS DIMINISH BELOW ACCURACY OF ADD 
1190 150 EBO=EBO+TRNTOADD 

1200 FLOATI=FLOATI+1. 

1210 POF 1=POF I #PIPE/FLOATI 

1220 TRMTOADD=( FLOAT I-FLOATN) #POF I 

1730 TF(TRATOADD. GT.5.£-9#€B0)G0 TO 150 

1240C 

1250C4HH# DONE 

1260 200 RETURN 

270 END 


SYSTEM 2LIST LASLA/LMILIB/DFACTLN 


SRO ## Ht LAOLA/LMILIB/DFACTLN BY MK 

FIC 

1000 DOUBLE PRECISION FUNCTION DFACTLN(N) 

LOLOCHH 

LO20CHHHHE = THIS FUNCTION COMPUTES THE LOGARITHM (BASE E) OF 
LO30CHHHE ‘“N’ FACTORIAL. 

1040C 8H 

1050 FARAMETER MAXTBLE=30 

1060 IMPLICIT [QUBLE PRECISION(D) 

1070 DIMENSION DTABLE (MAXTBLE) 

1080 EQUIVALENCE (DTABLE(0), DZERO) 

1090CHH «= #DSIGMA IS A CONSTANT = LN(SQRT(2#PI)) 

1100 DATA DSIGMA/.91893 85332 04672 7417810 / 

1110C##e §=6#DZERO IS THE LOGARITHM (BASE E) OF 0! 

1120 DATA OZERQ/0. 0D0/ 

1130C##t =#DTABLE(I) IS THE LOGARITHM (BASE £) OF I! 

1140 DATA DTABLE/ 

1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 


0.000, 
«693147 13055994531 000, 
»179175944922905500D1 » 
- 317805383034794562D1 
«478749174278204599D1» 
-6579295121201010099D1» 
8525161 3610654143001, 
+ 10604602902745290202, 
« 128018274800814696D2; 
«15104412573079915302; 
« 17502307845873885802, 
« 19987214495661986202, 
+ 22592163853123422902; 
+ 25191221 182738681502, 
« 2789927 | 333840891602; 
+ 30671860106080672802, 
«333050734501 346888902, 
«36399445 208033053602, 
+ 39239884 187199494002, 
«423396 16460793485002, 
«45380 138898476908002, 
48471181951835223902, 
«531606679567764373602, 
«947847293981 12319202; 
«980036052229791579D2. 
-$1261701761002002002; 
»64557529627006331 102, 
678897 43137181534902, 
+ 71257038967 168009002; 
« TAGSBZHIABEN 144302 


/ 
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L470C Hee #IF(N IS WITHIN THE TABLE LIMITS) 
1480 IFC(N.LT.O) JOR. iN.GT.MAXTBLE)) GO TO 100 


#RETURN TABLE VALLE 
DFACTLN = DTABLE(N) 


*ELSE (USE STIRLING’S APPROXIMATION - SEE KNUTH VOL 1,P 111) 
GO TO 200 
CONTINUE 


*COMPUTE VARIOUS PARTS NEEDED FOR THE APPROXIMATION 
DPN = DBLE(FLOAT(N) } 
DFACTLN = (DPN + .5D0)#DLOG(DPN) - DPN + DSIGHA 

+ 1.000/(12. ODO#DPN) 

- 1.0D0/ (360. ODO#DPNEDPN#DPN) 


4END IF (TABLE LIMITS TEST) 


APPENDIX J 


SAMPLES OF AN SGM SPARES DATA 


BASE FOR A PARTICULAR BASE 


SSSSSSSSKESSSESSSSESSSSSSESSSSSSSSSSSSSSSSSSSSSSSSESISSSSSSS 
SSSSSSSHESSSSSHSHSSSSSSSISSSSSSSSSSSSSHSSSSSSESESSSSSSSSSSSSS 


3883385 5 $$5$S$ $sss 
s ss $ $ 
$s 3 $SSS5 $ 
$s $s $ SS$$$ 
$ 3 $s $s $s 
$ S$$ SS$S $s 


SSSSSSSSSSHSSSSSSSSHLSSSHESSSSSSSSHSSSSSHSSSSSSSSSSSSSSSSSSSS 
SSSSSSSSSSSSHSSSSSSSHSSSSSSSHSSHSHSSSSSSESSSSSSSHSSSSSSSSSSSS 


$5 7189U ENTERED C AT 11.796 FROM TSS/S 0-98-12 
0001 s SNUMS 7159 
ago02 $ COMMENT OS29SLa¥ TSS CARDIN 
900% 3 NSERTID OS29SLAYSaeaeuszeage 
1004 § TOENT OS2911N2329 ,OS29USLAY 
9005 $s NOTE SETIUP RUN FOR ABELL 
1004 ¢ CPTION FORTRAN 
N007 SS SELECT LAwtaA/STARS/OBJECT/OM/SETUP.O 
A008* § Ca sECT LAALTA/SSTARS/SOURCE/DM/SETUP 274/81) F 
9010 $3 SELECT Lamta/LMILIS .G/PIPECMPQ 
YO1Le § CRJECT LASLA/LIMILIB/PIPECMP 2/2/81 BY FMS 
91s $5 SELECT LAnLA/LMILIA.O/EROCMP LO 
N0tde § CASJECT LA6YA/LMILIB/EROCMP 2/3/81 BY FMS 
9016 8&8 SELECT LABLA/LMILIB.O/0FACTLNG 
ANLTs § CASECT LAbta/LMILIB/OFACTLN FY MIK 
9919 S$ SELECT LaeiA/LVMILIB,O/MSORTN LD 
An020* § CRSECT LASLA/LMILIB/MSORTO 3/6/81 AY MEK 
9922 as EXECUTE 
9023 $ LIMITS 39,2°5«%,,10K 
9024 8 TAPEQ 01,A100,,26393,,283 
g9e7 38 FOMEL 92,N8,-S,LABLA/SSLAY/DATA/FA/SEYMQUR 
90265 § OATA 0S 
9027 $ ENO JOS 
TATAL CARO SCUNT THIS [08 = 960160 
e REGTN ACTIVITY -0f= GFLOAD O9/N7 7/84 SN=100000800000 
INPUT STARTED NTTe 225393 FOR FILE CODE 01 GE 600 BTL 
e NORMAL TFAMENATICN AT 916053 T=S5000 S$W=000009000000 
START 11.8323 LINES 3235 PROC 0.0A87 
STOP 11.955 LIMIT 10240 LIMIT 9.3900 
Sa ae 9.909 
LAPSE 9.122 Fe. TYPE Susy IP/AT FR/QT 
9S 2 9191 * 5 0 1 
Re 2 O191 «& 117 0 0 
1 0 Taps asaso 0/03 
9? 2°01391 ° Leo 0 11 
ae syoguT 
Le 8 3191 *# ats 0 0 
List lta LIN&$ aT sta, XL 
2C+5e2 Sez LINES AT STA, XL 
2e\eNe APSza LINES AT STALL XL 


SSSSSSSSSSSSSSKESSSSSE 
SSSSSSSSESSSSHKESSSESS 


$ $ 
5 $ $ 
$s $ $ 
$s $ 

$ $ 

$s$s 


SSSSSSSSSSSSSSSSSSESS 
SSSSSSSSSSSSSSSSSESSS 


o110 
120 
00130 
001460 
OR IT Y14.4609099384......00 
00150 
YLIF.749090S5S81PIPECMOO 
00160 
Y13.762090S581F30CMP00 
00170 
YL4,98ZO207BLOFACTLIO 
90175 
Y23.249070581MSORTOOO 
000180 
00190 
0290 
0210 
220 
000250 
AFOSC 242397 26393 0001 81adA 
r/y 9.028 Ty? MEMORY 
LIMIT ctu Ss Mat 
TS/8C MS/#E ADORESS Ta 
i 1 0-08-12 
13 13 9-98-12 
7116 0 O=16902 826393 
13 13 0-98"15 
ae4 e24aR 0-98-02 


| 
: 


oocorsTN 


2s« 
11860 


othe Sk eee i ct ee Rr ee 


PRACESSCR 
$ 2,78 


SNUMB = 


7159u, 


ts 
$1.65 


ACTIVITY 4 


$s 


CORE 
5.42 


1, 


TOTAL 
$ 9.81 


REPORT CODE 


J-2 


Ta, 


RECORD COUNT 
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APPENDIX K 


SAMPLE OF AN SGM SPARES DATA 


BASE FOR A NOTIONAL BASE 


SSESSSSSESSESERSSS 
SSSSSSSHSSSSSSESSS 
SSSS5S $s 
8 $ 
$ 
$ 
3 $ 
$ sss 


$$$ $s 
§ $$ 

§ s 
$$$ $ 
§ 

SS$8 sss 


SS$Ss 


$ 


$ 


$SSS 


$ 
$s 


$ 
s 


ssss 


SSESHSESSSESSSSSSSSSESSSSSSSSSSSSSSSSSESSESSSSSSSESSSSSSSESESESE 
SSESESSSSSSSSSSSSSSSSSSSSSSSSSSSSSESSSSSSSSSSSSSESSSSSSSSSSESESS 


s $s 
s $ 
s $s 
$ $ 
$ $ 
$s¢s 


SSSSLSESSSSSSSESSSSESSHSSESSESSSSSSHESSSSSSSESSSSSSSSSESESSSSSSSSSSSSSSSESESSSSSSES 
SSSSSSSESESSSSSESSSSESESSSSSSSSSHSSSESSSSSSSESSESSSSSSSESHSSSSSSSSSSSSSSSSSSSESSSESSS 


$$ 721A ENTERED C 6T 12,095 FROM TSS/S 0-06-12 
ooo1 § SNuUM8 7218 
0002 3 COMMENT QS29SLAY TSS CARDIN 
9003 $$ USERID OS29SLAYSaasneanere 
000u § TOENT OS2011N2320 ,OS29USLAY 
000s § NOTE SETBUPN QUN FOR ABELL 
0906 § COTICN FORTRAN 
0007 Ss SELECT LA&bLAsSTARS/ORJECT/OM/SETUPN.O 
O0vR® § C2sECT LABLA/SSTARS/SOURCE/DM/SETUP 2/4/81 
00190 S$ SELECT LAHIA/LMILIB.O/PIPECMPO 
OOlle S CASECT LAGITA/LMILIB/PTPECMP 2/3/81 AY FMS 
0013 $$ SELECT LASLA/LMILIB.O/EBOCMP.O 
0Ola*e § ORJECT L4elA/LMILIBJESOCMP 273/81 BY FMS 
o016 $s SELECT LAmLA/LMILIB.LO/DFACTLNG 
OO1L7« § CRYJECT LASLASLYILIB/NFACTLN RY MIK 
0019 $s SELETT LARLA/LMILI®.C/MSORTI.O 
00208 §$ CRJECT Laota/LMILIB/MSORTD 3/6/81 BY MJK 
0022 aF EXECUTE 
0023 § LIMITS 39,25%,,10K 
0024 § TAPES 01,4106,,26393,,888 
o0es) $$ PQMEL 02,8,S,LA61TA/SLAY/NATASFU/NOTIONAL 
0026 3 DLTA As 
oce7 § END JOR 
TOTSL CAPM CGUNT TRIS JOR = 900151 
* RECTS ACTIVITY -9t= GELOAD O9/N7/24 Sw=N0N000000000 
TVOuT STARTED wiT™ 226392 FAR FILE CODE 01 GE 60 RTL 
e NORMAL TERMINATION AT 21552 [25000 Sw=000000000000 
START L2.466 LINES 6732 PROC 0.0957 
STO® 42.275 LIMIT 10240 LIMIT 0.3900 
SwaP 0.000 
Laese 0.132 FC nN TYPE Bisy IPs aT FP/RT 
0S R DNA « 7 0 1 
Re 8 0191 « 122 0 0 
0) 0 Taps 958a8 N/703 
G2 R 0191 P 338 0 16 
Oe syaut 
Le RF O191 @ 874 (0) 0 
LIstT 115 LINES aT STA, XL 
ac-Se 928 LINES AT STA, XL 
RC#MH SHA9 LINES a7 STA, KL 
K-1 


AFDSC 


170 
LIMIT 


1S/ec 


0120 
120 
00130 
00440 
FOR I Y21.025090481......00 
00150 
Yi3.7US0905B1PIPECMOG 
00160 
¥13.762090581EBOCMP00 
00170 
¥16,.98302078) 9FACTLOO 
00175 
Y23.2U9030SAIMSCRTOOY 
000180 
00190 
0200 
0216 
220 
000250 
26393 26393 0001 A124R  OUUdIST: 
0.028 Iu § MEMORY  25« 
Cu SMart 12886 
MS/ME ADDRESS Ts 
1 0-08-12 
12 0-08-12 
a D=16"0d B2E393 
20 0-0A-16 
624k 0-08-02 


ee eee 


PRNCESSCR 1/9 CCRE TOTAL 
$ 3.06 $ 1.70 3 5.93 $ 19.69 
SNUMB = 7218U, ACTIVITY 2 = O41, REPORT COCE 


K=2 


74, 


RECORD COUNT 


000115 
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